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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

THIS IS A . 11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF A_TSVOS MAG $s 


(Q-BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE fg oa ISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE a ENVIRONMENT . 
THIS ony CAN BE_USED WITH XXDP+ ote LIDE AND PAPER 
TAPE. A COMPLETE DESCRIPTION OF T ONT EME” SERVICES, REFER 
TO THE KXDP* USER'S MANUAL. THERE Ts. AT aRier DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


POP-11/23 PROCESSOR AND MEMORY 

CAUTION: DIAGNOSTIC REQUIRES 32K ore OF MEMORY 

(28K USEABLE AND 4K RESERVED FOR I/0 PAGE) 

TSVOS MAGTAPE SUBSYSTEM CORIVE AND CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR CHSAAA.SYS VERSION 34 OR LATER) 
POP-11 DIAGNOSTIC LOADER/MONITOR (XXDP-+) 


1.3 RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XXDP+ USERS MANUAL; DOCUMENT NUMBER AC-F348E -MC 
DATE: 14 JULY 1980. 


2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSVOS-UG-001 
DATE: AUGUST 1982 


3. TSVOS TRANSPORT DB eahintirs TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001 


DATE: AUGUST 196 


4. TSVOS TRANSPORT 1B eaicabiaty INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS-IN-001 


DATE: AUGUST 1 


SEQ 0003 
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1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL PDP-11/23 CENTRAL PROCESSOR AND MEMORY 

FUNCTIONAL CONSOLE TERMI 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 

FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP+) 

1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTE 

ie. iret BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CVTSAA,CVTSBA AND CVTSCA HAVE SUCESSFULLY RUN. 

2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER’S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED CAFTER tC) 
PROCEEC CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 


ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 
CONSIDERED re BE ACTIVE AT START TIME 


DROP DEACTIVATE A_UNI 

PRINT PRINT STATISTICAL gy tite CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ~ DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 


SEQ 0004 
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2.1.1 OPERATOR COMMANDS 


pu TSVOS rig 33253 IS A POP-11/23 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
Se ADP USERS MANUAL, DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY j 


BOOT THE DIAGNOSTIC XXOP MEDIA 


.R VTSD?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 
CVTSO-B-0 

#eeeTSVOS LOGIC DIAGNOSTICeses 

UNIT IS TSVOS 


>D0R 
2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD". 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5.7.8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL Not BE RUN. 
/PASS : 00000 EXECUTE DODDD PASSES (ODDOD = 1 TO 64000) 
/FLAGS:FLGS SET Pwr FLAGS ARE DESCRIBED 


IN SECTI 
7EOP :DDD00 REPORT END OF PASS MESSAGE AFTER EVERY 

DDDOD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 


USE UNITS 0,5,10,11,.12 CUNIT NUMBERS = 0-63) 
EXAMPLE OF SWITCH USAGE: 
START/TESTS:1-S/PASS : 1000/E0P : 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 pe BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE E teed 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY 

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE Ae Sat “you MAY, 
FUR EXAMPLE, TYPE “/TES:1-S” INSTEAD OF “/TESTS:1-5” 
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| BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND 


| . 


TESTS PASS FLAGS EOP UNITS 


| START x x x x x 
RESTART X x Xx Xx x 
CONTI x x x 
PROCEED x 

oP x 
Xx 
INT 
DISPLAY 
AGS 
ZFLAGS 
IT 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE ig og og arrise ot "ee 


T c 
NO COMMANDOS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE ER, + TEST AND UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACR 

PRI DIRECT MESSAGES TO LI 

nae oy iy NUMBER AS TEST REXECUTES 

UAM UNATTENDED NODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
MLe Ee REPORTING ) 

IOR INHIBIT PROGRAM DROPPING OF UNITS 

AOR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 
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! 
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, } 
+0 CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE : IER: BOE 
2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE eed boa SERVICES WILL PROMPT 
THE USER FOR HARDWARE INF ORMAT ba BY TYPING “CHANGE HW (L) ?” 

YOU MUST ANSWER “Y" AFTER A STAR T COMMA UNLESS THE HARDWARE 
pe orcn ia HAS BEEN Mar oy gM ig THE Ae Ty see 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
wets td THE PROGRAM WILL ISSUE THE “CHANGE HW?" QUESTION TO ASK IF 
HE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N" (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 
RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


TSBA/TSOB = 172520, VECTOR = 224 


ON A “Y” CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
Ley BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 

PRESENT, LOCATED TO THE LEFT ' THE QUESTION MARK IS THE 
DEFAULT VALUE THAT au BE TAKEN IF ONLY A CARR aaa RETURN IS TYPED AS A 
RESPONSE. A + AR, QUESTION INDICATES THAT DECIMAL NUMBER IS 
REQUIRED ©.) A SPONSE. AN “(CO)” INDICATES an’ OCTAL NUMBER IS BEING 
SOLICITED. AN CLS INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
“Y" FOR YES, “N” FOR NO. 


@ UNITS (0) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS yy ed SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSVOS CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER 
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2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A oe Diy 
CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWA 

PARAMETERS. THESE PARAMETERS WILL oA bse SOME OIAGNOSTIC SPECIFIC 

OPERATION MODES. YOU WILL BE PROMPTED "CHANGE SW (L) ?” 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

"Y". THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ START 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHA 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE_ “Y" TO PREVENT tt 
ITERATIONS 


a OR CONTINUE. 


ONLY QUI 
TESTS USE MULTIPLE 
ITERATIONS. > 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 

A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO —_— ALL QUESTIONS FOR oe O 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED pevice SUCH _ A 
A_MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


ye DAuermare § A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 


VICE, THE XY11. SUPPOSE nas DEVICE CONSISTS OF 
Seer tant MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 


IS ONE HARDW Vv AMONG 
Q-FACTOR. THIS Q-FACTOR MAY BE _O OR 1. BELOW IS A SIMPLE WAY 
TQ BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


@ UNITS (0) ? 8<CR> 


Til 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 

T2 
SR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 1<CR> 
Q-FACTOR (0) 1? O<CR> 

3 


UNIT 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 
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G-FACTOR (0) 0 ? <CR> 


UNIT 4 
CSR ADDRESS (0) ? 160000<CR> 
S' ? — 


T6 
CSR ADDRESS (0) ? 160000<CR> 
UB-DEVICE @ (0) ? 5S<CR> 
Q-FACTOR (0) 0 ? <CR> 
UNIT 7 
CSR SS (0) ?_ 160000<CR> 
SUB-DEVICE @ (0) ?. 6<CR> 

0? 1<CR> 


T 
CSR ADDRESS ? ). 160000<CR> 
SU8-DEVICE @ ys By 7<CR> 
Q-FACTOR (0) 1 * eR 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! : 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
ice THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


@ UNITS (0) 2? 8<CR> 


ie 
CSR wooness (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 
UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
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ow 4 AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. I 


Y THE INCREMEN 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 
@ UNITS (0) ? 8<CR> 


CSR ADDRESS PS ).?_ 160000<CR> 
SUB-DEVICE @ 59) ?. 0-7<CR> 
Q-FACTOR (0) 0 0,1,.0....1,1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


SEQ 0010 
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2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP-+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE “START” 

S. ANSWER THE “CHANGE HW” QUESTION WITH “Y" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE “CHANGE SW” QUESTION WITH “N” 
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 
3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 
THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED By 
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER@ FLAG iS SET (SECTION 2.5). 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE Ben FATAL, DEV FATAL, HARD OR SOFT) 


war NUMBER = 0 - N (CN IS LAST UNIT IN PTABLE) 
T NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
Pe XRXHXX * ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT be ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH_AS REGISTER CONTENTS OR GO00/BAD este. THESE ARE ALWA 
PRINTED UNLESS THE “IER“, “IBR” OR “IXE” FLAGS ARE SET 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL E 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


YS 
CSECTION 2.3). 
RROR 





~ 
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3.2 SPECIFIC ERROR MESSAGES 


BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR Is INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 

TO THE teeny s he 3 . THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND P PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 
—" REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: 016 FIFO EXERCISER TEST 
CVTSO HRO ERR 01610 ON T 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS CIN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD #6: - DESIGNATOR <BIT @> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIDENT<11> IWHER <8> IONL<5> IFBY<1> 
IRESVi<13> ICER <10> ISPEED<7> ILOP<4> IFPT<O> 

APE BUS SIGINALS 


T IN WORD #9: 

DATMIS<7> ILW<6> OUTRDY<S> INRDY<4> 

MESSAGE BUFFER ADDRESS = 047352 

MESSAGE BUFFER S: 

WORD #0 EXPD: RECV: 100020 xXOR: 000000 
WORD @1 EXPD: 000012 RECV: 000012 XOR: 000000 
WORD #2 EXPD: RECV: 000000 xXOR: 000000 
WORD #3 EXPD: 000010 RECV: 000010 XOR: 000000 
WORD #4 EXPD: RECV: 000000 XOR: 000000 
WORD #5 EXPD: 000000 RECV: 000000 XOR: 000000 
WORD #6 EXPD: 000000 RECV: 000000 XOR: 000000 
WORD #7 EXPD: CV: 000000 XOR: 000000 
WORD #6 EXPD: 070217 RECV: 070217 xXOR: 000000 
WORD #9 EXPD: CV: 000034 xXOR: 000040 


ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE ORIVE.IN THIS 
oh one no A nama ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 


CVTSO HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR_NOT CORRECT AFTER SPACE RECORDS COMMAND 


TSSR = 100214 
TSSR BITS SET: SC,SSR 
TERMINATION CLASS CODE = UNRECOVERABLE ERROR 
P SS = 026420 
P T WORD * 140010 
PACKET WORD @ = 000010 
PACKET —_ #@ = 000000 
T @# = 000024 
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ERROR MESSAGE EXAMPLE 3 


THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 


CVTSD HRO ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT CXSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE > 
EXPD: 000312 RECV: 000112 XOR: 000200 


SEQ 0013 
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4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 

TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 

THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (POP-11/23) 


DOR>STA/FLA: PNT : HOE 

UNITS (0) ? 1 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE OIAGNOSTIC. THE COMMAND HAS TWO 
SW — ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” AND “HALT ON 


TST: 001 SKIP TAPE MARKS TEST 
TST: 002 oa OP AND INITIALIZE TEST 
TST: O03 ERASE AND OPERATION INCOMPLETE TEST 
TST: 004 DATA PARITY TEST 
TST: OOS TEST OF OPERATIONS AT EOT TEST 
006 ENDED-MODE FUNCTIONS TEST 
TST: 007 RECORD BUFFERING TEST 
TST: 008 FUNCTION TIMING TEST 


© ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT HAS 
BEEN SPECIFIED WITH THE “/PASS:” SWITCH. 


PROGRAM RUN TIMES 


THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A_ GUIDE. THE TIMING WAS DONE ON A POP-11/23 
PROCESSOR WITH A LA34 CONSOLE. 


THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A “Y” CYES). 


TEST N/I NUMBER DEF 
waht tes as . a a . 


a 1 1 0 
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@OrIOU Sw 
ee a ne 
hee ee te 
coooceo 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 37 IN ONE COMMAND: 


Q.V. 1S SECONDS 
DEFAULT 16 SECONDS 


5.0 DEVICE INFORMATION TABLES 


WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
ne SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER 


CHANGE HW (L) ? 


@ UNITS (0) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS Byers ed SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
ag Ah, CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 


CHANGE SW (L) ? 


INHIBIT ITERATIONS (L) N ? 


a 


SEQ 0015 
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TEST 
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TEST 


TEST 


TEST 
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6.0 TEST SUMMARIES 


1: WRITE TAPE MARK RETRY 
THIS fEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
REVERSE, ERASE, WRITE TAPE MARK). 
2: SKIP TAPE MARKS 
THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 
FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER eee nies 
UNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE M 
STOP CESS) AND ENABLF TAPE MARKS STOP OFF BOT CENB) BITS SPECIFIED 
BY THE WRITE CHARACTERISTICS COMMAND. 
3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 
THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE”) AND INITIALIZE 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 
4: ERASE AND OPERATION INCOMPLETE 
VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 
S: DATA PARITY TEST 


This test verifies that the date per ity circuitry in both the controller and the 
transport is operating posgerny y forcing data records with wrong parity to be 
written onto tape and checking the results obtained when the data is read. 

6: OPERATIONS AT EOT 
THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 

7: EXTENDED MODE FEATURES 


THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN 
pa CONTROLLER IS IN THE EXTENDED FEATURES MODE. THESE COMMANDS 


REWIND WITH IMMEDIATE INTERRUPT 


IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 


SEQ 0016 
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THIS TEST VERIFIES THAT RECORD th USED Ay WRITE DATA 
AND READ NEXT COMMAND 


| TEST 8: RECORD BUFFERING 
| Y AND IS PROPERLY 
os 


INTO THAT MODE ITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. 


TEST 9: FUNCTION TIMING 
THIS TEST VERIFIES THAT THE TAPE eon SEEMS TO BE WRITING 
REC S, ANO EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 
AND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A 
SKIP TAPE MARKS COMMAND WITH A_COUNT OF 6 OF MORE, oo. THE 
TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 
REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 


TIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF 
DIFFERENT TEST RECORD LENGTHS. 


7.0 MAINTENANCE HISTORY 
REVISION A - MARCH 1982 
REVISION B - APRIL 1983 
- FIXED TWO PROBLEMS, ONE IN TEST 1 AND THE 

OTHER IN TEST 8. 
REF. DOYLE TO GRASKY “TSVOS CVTSDA DIAGNOSTIC 
PATCH”; 23-DEC-82. 

REVISION C - JUNE 1984 


MINOR CHANGES FOR “ORION” CPU 
ELIMINATED CPU ID MESSAGE. 


REVISION D - JUNE 1985 


CHANGES MADE TO ALLOW DIAGNOSTICS TO WORK WITH 
XXDP+ V2.1 CORSXM) EXTENDED MONITOR. 


SEQ 0017 





| TSV2 - PROGRAM HEADER 


| 
| 
| 
| 


002000 


002124 
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-TITLE TSV2 - PROGRAM HEADER 
-SBTTL PROGRAM HEADER 


-MCALL SVC 

Svc 

-ENABLE LC 
-NLIST BEX,CNOD 
-ENABL ABS,AMA 


- #2000 
BGNMOD TSV2 
TSV2:: 


¢¢ 

: THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
gee 


POINTER BGNSW,BGNSFT ,BGNAU,BGNDU, BGNRPT 
HEADER CVTSO.D,0,655..0 


LSNAME: : sDOIAGNOSTIC NAME 
-ASCII /C/ 
ASCII /V/ 
ASCII /T/ 
ASCII /S/ 
ASCII /0/ 
YTE 
BYTE O 
BYTE O 
LSREV:: sREVISION LEVEL 
-ASCII /0/ 
LS$DEPO: : 30 
-ASCII /0/ 
LS$UNIT:: sNUMBER OF UNITS 
-WORD O 
LS$TIML:: ;LONGEST TEST TIME 
-WORD 655 
L¢$HPCP:: sPOINTER TO H.W. QUES. 
.WORD LS$HARD 
L$SPCP:: sPOINTER TO S.W. QUES. 
-WORD  L$SOFT 
L$HPTP: ; sPTR. TO DEF. H.W. PTABLE 
-WORD L$HW 
L$SPTP:: ;PTR. TO S.W. PTABLE 
-WORD L&SW 
LSLADP: : ;O0IAG. END ADDRESS 
-WORD LS$LAST 
LSSTA:: sRESERVED FOR APT STATS 
-WORD O 
L$Co:: 
-WORD 9O 
LSDTYP:: sOIAGNOSTIC TYPE 
-WORD O 
LSAPT:: une ;APT EXPANSION 
LSOTP:: PTR. TO DISPATCH TABLE 


.WORD L$DISPATCH 
LSPRIO: : ;DIAGNOSTIC RUN PRIORITY 


; INITIALIZE SUPERVISOR MACROS 


SEQ 0018 








{ 
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PROGRAM HEADER 

. WORD 

002044 LSENVI: : 


LSEXPi::° 


sFLAGS DESCRIBE HOW IT WAS SETUP 
sEXPANSION WORD 


w 
@ 
< 
+ 
m 
oo. non oc Sco 8 
ae 
m 


002050 LEMREV: : SVC REV AND EDIT @ 
002050 $REVISION 

002051 003 BYTE DIT 

002052 LSeF:: ;DIAG. EVENT FLAGS 
002052 000000 WORD 

002054 000000 “WORD 

002056 L¢SPC:: 

002056 000000 WORD 0 

002060 LSDEVP: : ; POINTER TO DEVICE TYPE LIST 
002060 003374 WORD L$DVTYP 

002062 LEREPP: : :PTR. TO REPORT CODE 
002062 622650 WORD _LSRPT 

002064 LSExP4:: 

002064 €00000 WORD 0 

002066 LSEXxPS:: 

002066 000000 WORD 0 

002070 LAUT: : :PTR. TO ADD UNIT CODE 
002070 022336 WORD LAU 

002072 LSDUT: : ;PTR. TO DROP UNIT CODE 
002072 022434 WORD LDU 

002074 LSLUN: : ;LUN FOR EXERCISERS TO FILL 
002074 000000 WORD 0 

602076 LSDESP: : POINTER TO DIAG. DESCRIPTION 
002076 003402 WORD L$DESC 

002100 LSLOAD: : ;GENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT —_—ESLOAD 

002102 LSETP:: ;POINTER TO ERRTBL 
002102 000000 WORD 0 

002104 LSICP:: ;PTR. TO INIT CODE 
002104 021542 WORD LS INIT 

002106 LSCCP: : :PTR. TO CLEAN-UP CODE 
002106 022622 WORD L$CLEAN 

002110 LSACP: : :PTR. TO AUTO CODE 
002110 022542 WORD L$AUTO 

002112 LSPRT:: :PTR. TO PROTECT TABLE 
002112 021532 WORD L$PROT 

002114 LSTEST:: TEST NUMBER 

002114 000000 WORD 0 

002116 LSDLY:: ;DELAY COUNT 

002116 000000 WORD 0 

002120 LSHIME: : :PTR. TO HIGH MEM 
002120 000000 WORD 0 





j 
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SEQ 0020 
DISPATCH TABLE 
st -SBTTL DISPATCH TABLE 
84 
845 i THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
ots s IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
gee 
846 
647 122 DISPATCH 9 
122 000011 . 9 
002124 LS¢DISPATCH: : 
002124 0234 -WORD T1 
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DEFAULT HARDWARE P-TABLE 


SEQ 0021 


950 SBTTL DEFAULT HARDWARE P-TABLE 
852 ¢ 
853 } THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
854 } THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
855 | IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
857 002146 : BGNHW DFPTBL DEFAULT HARD-P-TABLE 
002146 000003 "WORD 10000-L$HwW/2 
002150 LHW: : 
ese 002150 OFPTBL:: 
859 002150 172520 WORD 172520 ; 1ST COF 2) REGISTERS. 
860 002152 000224 “WORD 224 ) INTERRUPT VECTOR 


861 002154 000200 -WORD PRIO4 s INTERRUPT PRIORITY. 
862 0021 
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| SEQ 0022 
| SOFTWARE P-TABLE 


! 
i 
oes -SBTTL SOFTWARE P-TABLE | 
666 es 
667 THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM | 
poy : PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
3-7 
870 002156 BGNSW SFPTBL 
002156 000004 -WORD L10001-L$SW/2 
002160 LSSW:: 
871 002160 SFPTBL:: 
872 002160 000000 TRANSTST:: -WORD O : ENABLE TEST OF TRANSPORTC(S) IF =1 
873 002162 000000 NOITS:: -WORDB O 3 ote ITERATION OPTION. 
674 3 . O = ITERATE. 
875 F .NZ = INHIBIT ITERATE. 
876 002164 000017 LERRMAX: : -WORD 15. ; LOCAL (PER TEST) ERROR LIMIT 
877 002166 000310 GERRMAX: : -WORD 200. : GLOBAL (PER UNIT) ERROR LIMIT 
878 002170 ENOSW 
0021 L10001: 


879 
680 002170 ENDMOD 
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8 

891 

896 

902 

903 002170 
002170 

904 

905 

907 
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-TITLE TSV3 - GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 
TSV3 
TSV3:: 
-SBTTL GLOBAL EQUA.<cS SECTION 


oe 


s THE GLOBAL EQUATES SECTION reer AINS PROGRAM EQUATES THAT 


s ARE USED IN MORE 
geo 


THAN ONE T 


EQUALS 
; BIT DIFINITIONS 


: 
s EVENT FLAG DEFINITI 


; GET STANDARD EQUATES. 


ONS 
s EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


ol 

EF .START== 32. 
EF .RESTART== 31. 
EF .CONTINUE== 30. 
EF .NEW== 29. 
EF .PWR== 26. 
: 


; PRIORITY LEVEL DEFINITIONS 


s START COMMAND WAS ISSUED 

s RESTART COMMAND WAS I 

s CONTINUE COMMAND 

: A POWER-FAIL/POWER-UP OCCURRED 





— - = - 
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916 
917 002170 


000250 
177572 


MACRO YOS.02 Tuesdey 17-Sep-85 11:22 Page 19-1 


PRIO7== 340 
300 
PRIOS== 240 


200 
PRIOS=*= 140 
PRIO2== = 


PRIOO== 0 


40000 
HOE== 100000 


1 ee 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 
3@KT11 VECTOR ADDRESS 

3#KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 





SEQ 0024 


| 
| 
| 
sDEFINE MEMORY MANAGEMENT REGISTERS 
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MEMORY MANAGEMENT DEFINITIONS 
i. t+) PAGE ADDRESS REGISTERS 


peSUPERVISOR “D” PAGE DESCRIPTOR REGISTERS 


SOPORi= 172222 
SOPOR2= 172224 
SOPORS= 1722 
SOPOR4= 
SOPORS= 1722 
SOPOR6= 1722 
SOPDR7= 172236 
-ENOC 


-IF NB 
JeSUPERVISOR “D0” PAGE ADDRESS REGISTERS 
ARO= 172260 


SOPARi= 172262 
SOPAR2= 172264 
SOPARS= 172266 








TSV3 - GLOBAL AREAS MACRO YOS.02 Tuesday 17-Sep-85 11:22 Page 19-35 ore 
MEMORY MANAGEMENT DEFINITIONS . 


SOPAR4= 172270 
Steg: Hee 
s 
ee * 172276 
s@KERNEL “I* PAGE DESCRIPTOR REGISTERS 
172300 KIPORO= 172300 
172302 KIPORi= 172302 
172304 K * 172304 
172306 K * 172306 
172310 KIPOR4* 172310 
172312 KIPORS= 172312 
172314 KIPORG= 172314 
72316 a ot 172316 
s@KERNEL “D" PAGE 
DESCRIPTOR REGISTERS 
KDPORO= 172320 
KDPORI= 172322 
KDPOR2= 1723524 
KDPDRS* 172326 
KDPDR4= 172330 
KDPORS* 1723352 
KDPOR6> 172334 
a 172336 
s@KERNEL “I* PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPARi= 172342 
172344 KIPAR2= 172344 
172346 KIPARS= 172346 
172350 KIPAR4= 172 
172352 KIPARS* 172352 
172354 KIPARG6= 172 
2356 . — 172356 


3@KERNEL “D° PAGE ADDRESS REGISTERS 
KDPARO= 


172360 
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hie Mace cr Caps SEQ 0027 


TSVOS REGISTER AND PACKET DEFINITIONS 
38 .SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 
924 ’ 
925 ’ : SOME GENERAL EQUATES. 
337 
928 000004 ERRVEC== : POINTER TO ERROR VECTOR FOR 8US TIME OUT. 
929 000060 TTIVEC== 60 3 INTERRUPT VECTOR FOR CONSOLE INPUT 
177560 TTICSR== 177560 : BUS ADORESS OF CONSOLE INPUT 
931 177562 TTIBFRe= 177562 ; CONSOLE INPUT DATA BUFFER 
aos 177520 BOVPCR== 177520 s BOV11 PAGE CONTROL REGISTER 
934 3¢ 
eae sB8IT DEFINITIONS FOR TSSR REGISTER 
§2< 
937 
938 100000 SC= BIT15 sSPECIAL CONDITION 
939 040000 BIE= BIT14 sBUS INTERFACE ERROR 
940 SCE= BIT13 sSANITY CHECK ERR 
941 010000 RMR= BIT12 sMODIFICATION REFUSED 
942 NXM=2 BIT1i1 sNONEXISTANT MEMORY ERROR 
943 002000 NBA= BIT10 ;NEEO BUFFER ADDRESS 
944 001400 HIADDR= BIT9!BITS sEXTENDED ADDRESS BITS 
945 000200 SSR= BIT7 SUB SYSTEM READY 
946 000100 OFL= BIT6 ‘OFF LINE BIT 
947 000060 FATERR= BIT4!BITS iFATAL TERMINATION ERROR CODES 
pe 4 000016 TERCLS= BIT3!BIT2!:BIT1 ;TERMINATION CODES 
351 . 
3 
952 ;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
953 :(XSTO) 
954 3 
$e m 
957 100000 XSOTMK= BIT15 ;TAPE MARK DETECTED 
958 040000 XSORLS= BIT14 sRECORD LENGTH SHORT 
959 020000 XSOLET= BIT13 sLOGICAL END OF TAPE 
010000 XSORLL= BIT12 sRECORD LENGTH LONG 
961 XSOWLE= BIT11 sWRITE LOCK 
962 002000 SONEF= BIT10 sNON EXECUTABLE FUNCTION 
963 001000 XSOILC= BIT9 sILLEGAL CO 
XSOILA= BITS sILLEGAL ADDRESS 
965 000200 XSOMOT= BIT7 ; TAPE IN MOTION 
966 000100 XSOONL= BIT6 s TRANSPORT ON LINE 
967 000040 XSOIE= BITS s INTERRUPT ENABLE 
968 000020 XSOVCK= BIT4 sVOLUME CHECK BIT 
969 000010 XSOPED= BITS | PHASE ENCODED DRIVE 
970 000004 XSOWLK= BIT2 sWRITE LOCKED 
971 000002 xsopoT= BIT1 sBEGINNING OF TAPE 


972 000001 XSOEOT= BITO sEND OF TAPE 





ee me an re Ce 
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+ 
187 DEFINITIONS FOR EXTENDED STATUS REGISTER 1 


3(X 

he 

X1.0LT = BIT15 sDATA LATE 

X1. SPARE = BIT14 ower USED 

X1.COR = BIT13 RECTABLE DATA ERROR 

X1.MB8Z = BT TiS .BITIL BIT OL OLT9 BIT? O16 cO1TS+BIT4+BIT3-BIT2+BITO ;ALWAYS O 
X1.R6BP = BITS sREAD BUS PARITY ERROR 

X1.UNC = BIT1 sUNCORRECTABLE DATA OR HARD ERROR 

t¢ 

sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 

3(xST2) 

| id 

X2.0PM = iby oN cate IN PROGRESS (TAPE MOVING) 

x2.RCE = BIT1 CHECKSUM ERROR 

X2.SPARE= Bitis.erTi2-B1111.8179-B118 sNOT USED BY TSVOS CALWAYS=0) 

X2.WCF = BIT10 E CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
X2.EXTF = BIT7 vr TIAITE E CHAR CMD THEN = EXTENDED FEATURES ENABLED 
X2.BUFE = BIT6 sIF WRITE CHAR CMD THEN = BUFFERING ENABLED 

X2.REV = 000077 ;IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
X2.UNIT = BIT2+BIT1+BITO. ;IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 


2 
i811 DEFINITIONS FOR EXTENDED STATUS REGISTER 3 


X3.MDE = 177400 sMICRO- St ERROR CODE 
X3.SPARE= BIT7 sNOT USED BY T 

X3.O0PI = BIT6 s OPERATION INCOMPLETE 
X3.REV = BITS sREVERSE 

X3.TRF = BIT4 s TRANSPORT RESPONSE FAILURE 
X3.0CK = BITS ;DENSITY oo 

X3.MBZ =BIT2+BIT1 sNOT USED ALWAYS 0 

X3.RIB = BITO ;REVERSE INTO BOT 


> 
iBT _DEF INITIONS FOR EXTENDED STATUS REGISTER 4 


X4.HSP = BITIS sHIGH SPEED 

x4.RCE = BIT14 1 TRANS COUNT EXCEEDED 

X4.TSM = BIT13 TRANSPORT SPECIAL MODE 

X4.MBZ = BIT12-BIT11-B1110+B119+8178 sNOT USED ALWAYS 0 
X4.WRC = 000377 sWRITE RETRY COUNT FIELD 


3¢ 


iTSSR TERMINATION CODES (BIT 0-2) 
; 
ge 


TSREJ= 342 sCOMMAND REJECTED 
UNREC= 6 sUNRECOVERABLE ERROR 
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| SEQ 0029 
TSVOS REGISTER AND PACKET DEFINITIONS 
1030 s¢ 
1031 ‘ 
| 4032 {DEVICE REGISTER OFFSETS 
j 1033 3 
1034 a 
| 4035 
1036 000000 TSBAs= 0 
1037 000000 TSDB== 0 ;TSOB/TSBA REGISTER 
10 000001 TSBAH== 1 
1039 000001 TSDBH== 1 :TSOB/TSBA REGISTER HIGH BYTE 
1040 000002 TSSR== 2 iTSSR REGIST 
1041 000003 TSSRH== § iTSSR REGISTER HIGH BYTE 
1043 1e 
Lose ; TSOB ADDRESS BIT DEFINITIONS 
1046 000003 Ai716 = _BIT1+BITO ;ADDRESS BITS 17:16 ARE IN 1:0 
1048 
1049 ; COMMAND DEFINITIONS 
1051 000017 P.GETSTAT = 17 GET STATUS 
10 000013 P “INIT = 13  jINITIALIZE 
1053 000012 P: CONTROL = 12 CONTROL COMMANDS 
1 000011 FORMAT ii of 
1055 000010 P POSITION = 33 ESS r0N 
1 000006 P“WRTS 26 ;SUBSYSTEM WRITE 
1057 000008 P “WRITE -5 SWRITE 
10 000004 P-URTCHAR -4 }WRITE CHARACTERISTICS 
1059 000001 P “READ 21 ;READ 
1060 
1061 3° 
1062 i COMMAND PACKET HEADER WORD BIT DEFINITIONS 
§°- 
1064 100000 P.ACK = BIT1S :BUFFER AVAIL FOR CONTROLLER 
1065 040000 P:CVC = BIT14 }CLEAR VOLUME 
020000 P'OPP = = BIT13 REVERSE SEQUENCE OF DATA BITS 
1067 010000 P:SWB = BIT12 {SWAP BYTES IN ME 
1068 007400 P:MODE = Bitiierrio:ert3i8r78 18) JEXTENDED COMMAND MODE FIELD 
1069 000200 P'IE = BIT? NABLE 
1070 000140 PLFMT= BIT6:BITS PACKET HEADER TYPE (ALMAYS=0) 
1071 000037 P:CMD = 37 }MAJOR COMMAND FIELD 
3¢ 
iota ;* CONTROL COMMAND MODE CODES 
ge 
1075 000000 PC. RELEASE = 08256. RELEASE BUFFER 
1076 000400 PC REWIND = 10256 REWIND 
1077 001000 PC: NOOP = 20256. +NO-OP 
1078 002000 PC. TEREW = 44256. }REWIND IMMEDIATE INTERRUPT 
1079 002400 PC ERASE = 54256. }SECURITY ERASE 





+ 
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| TSVOS REGISTER AND PACKET DEFINITIONS 


| 
| 
1982 + CONTROLLER RAM DEFINITIONS | 
1084 000167 aricue 67 TERISTICS IO DATA BEGIN RAM ADDRESS 
1085 000200 NB = 300 VSHARACT ER it ics 10 Bath A END Ra Ran ADDRESS 
1086 000201 RMPKTBEG* 301 
1087 000210 TEND= 210 OOOMIAND PACKET ENO-RAM ADDRESS 
1088 000215 RNMSGBtGe Sts MESSAGE BUFFER BEGIN RAM ADDRESS 
1088 000234 RMMSGEND= 234 MESSAGE BUFFER END RAM ADDRESS 
090 3° 
1091 3 
1092 IREGISTER DEFINITIONS IN THE MESSAGE BUFFER 
: 
109s ” 
1096 000006 XSTO== 6 EXTENDED STATUS REGISTER 0 (WORD 4) 
1097 000010 XSTle= SEXTENDED STATUS REGISTER 1 (WORD 5) 
1098 12 XST2== 10 ‘EXTENDED STATUS REGISTER 2 (WORD 6) 
c00014 XSTS== 12 XTENDED STATUS REGISTER $ CWORD 7) 
1100 000016 XSTa== 14 EXTENDED STATUS REGISTER 4 CWORD 8) 
+103 ” 
1104 ‘OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
3 
tio? a 
1108 000002 PKLOW = 2 ;LOW ORDER CHARACTERISTIC DATA POINTER 
1109 000004 PKHI. = 4 ‘HIGH ORDER CHARACTERISTIC DATA POINTER 
1110 000006 PKBCNT = 6 {NUMBER OF BYTES IN DATA PACKET 
1112 000010 EXBCNT=10 ;NUMBER OF BYTES IN EXTENDED DATA PACKET 
1114 rs 
1115 ‘DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
1117 000000 BSELO = 0 iBYTE 0 
1118 000001 BSEL1 = 1 ‘BYTE 1 
1119 000002 SeL> = 2 ‘WORD 2 
1120 000004 SELDATA = 4 }WORD 3 
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| SEQ 0031 
TSVOS REGISTER AND PACKET DEFINITIONS | 
| 
| ape 1s | 
1138 {BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND | 
1125 000000 Pu.NoP = 0 :NO-OP 
1126 000001 PU: RORAM “1 ;READ_RAM | 
1127 000002 PWWTRAM = 2 {WRITER 
1128 000003 PW:RFIFO 3 ;READ FIFO 
11 000004 PW:WETFO -4 {WRITE FIFO 
1130 000005 PW:ROSTAT =5 iREAD STATUS 
1131 000006 PW:WCTL -6 ;WRITE TAPE CONTROL 
1132 000007 PU: WEHT -7 {WRITE TAPE FORMAT 
1133 000010 PW: WMISC = 10 (WRITE MISCELLANEOUS 
1134 000011 Pu: * 11 WRITE NPR CONTROL 
1135 000020 Pu:D22 = 20 100 MICROTEST 22 
136 000021 Pu:D11 = 21 :D0 MICROTEST 11 
1137 2 PU:D13 = 22 :D0 MICROTEST 13 
1138 000023 PU:NO1311 = 23 DISABLE MICROTEST 11_AND 18 
1138 000024 PW.RDEXT = 24 ;READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 
1141 
1142 {BSEL1 CODES FOR WRITE TAPE CONTROL 
ge 
1144 000 WC. IFAD * BIT7 sIFAD - FORMATTER ADDRESS 
1145 000100 WC: TOTAD = BIT6 ;ITADO - TRANSPORT ADDRESS BIT 0 
11 000040 WC: TA TAD = BITS ;ITAD1_ - TRANSPORT ADDRESS BIT 1 
1147 000020 WC: TSRESV = BITS TIRESVS - RESERVED 05 
1148 000010 WC: TREW = BITS SIREW - REWIND 
1149 000004 WC: TRWU = BIT2 SIRWU = REWIND AND UNLOAD 
1150 000002 WC: IFEN = BIT1 SIFEN > FORMATTER ENABLE 
1151 000001 WC: 160 = BITO 60 
1152 
1153 
1154 {BSEL1 CODES FOR WRITE FORMAT 
Be 
1156 000200 WF. IHTSP = B1T7 sIHISP - HIGH SPEED 
1157 000100 WE STURT = BITE SIWRT = WRITE 
1158 000040 WF: TREV * BITS TIREV - REVERSE 
1159 000020 We: TWF = BITS VIWFM «> WRITE FILE MARK 
1160 000010 WF TEDIT = BITS SIEDIT - EDiT 
1161 000004 WF: TERASE = BIT2 STERASE - ERASE 
1162 000002 WF /TSRESV * BIT1 iIRESVS - RESERVED 03 
1168 000001 WF: T4RESV = BITO SIRESV4 - RESERVED 04 
1165 se 
1166 }BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 
ge 
1168 000200 HS .EXT = BIT7 sINVERT SENSE OF EXTENDED FEATURES SWITCH 
1169 000020 HS -RSFIFO = BIT 1RESET FIFO AND INPUT PARITY ERRORR 
1170 000010 HS -RSTAPE = BITS ;RESET TAPE STATUS IN 2 FLIP-FLOPS 
1171 000006 MS /ATTN = BIT2!8IT1 ;ATTENTION TRIGGER FIELD 
1172 000001 MS .RSD = BITO {RESET TIMER A.B THEN DELAY TIMES IN SEL2 
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1174 s¢ 
ee s MS.ATTN SUBCODES 
te 
1177 000000 MSA.NOP = O#2 sNO-OP CNOTHING TRIGGERED) 
1178 000002 MSA.VOL = 1#2 serena ON-LINE/OFF-LINE TRANSISTION 
1179 000004 MSA.NRAM= 202 sFORCE NON-FATAL RAM ERROR CFORCES ERRCODE 54) 
rt 000006 MSA.FRAM= 322 sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 
3° 
1188 3: WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 
ge 
1184 000200 , NP .IR * BIT7 s INTERRUPT REQUEST (0-1 TRANSITION) 
1185 000100 NP .OUT = BIT6 s TAPE ore DIRECTION our €O= IN) 
1186 000040 NP .LOOP * BITS sENABLE TRANSPORT LOOPBACK 
Hed 000020 NP .WRP = BIT4 sWRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 
3¢ 
tet s READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
g¢ 
1191 
1192 cC00200 $2.0IM = BIT7 sWORD #9 BYTE 2 yy! IN MISS 
1193 000100 S$2.ILwW = BIT6 3 Itw 
11 S2.O0UTRDY = BITS 3 ROY H 
1195 20 S2.INRDY = BIT4 3 IN RDY H 
11 000010 S2.ATIMR = BITS 3 TIMER A FLAG H 
1197 000004 S2.BTIMR =» BIT2 3 TIMER B FLAG H 
11 000003 S2.UNDEF = BIT1+BITO 3 CUNDEF INED ) 
1199 100000 $1.PARIN = BITiS sWORD #8 BYTE 1 PARIN H 
040000 $1.I2RESV = BIT14 3 IRESV2 
1201 020000 $1.I1RESV = BIT13 3 IRESV1 
1202 010000 $1.IEOT =» BIT1i2 3 EOT L 
1203 004000 $1.IIDENT = BITi1 3 IIDENT H 
1204 002000 $1.ICER = BIT10 3 ICER H 
1205 001000 $1.IFMK = BIT 3 IFMK H 
1206 000400 $1.IHER = BITS 3 IHER H 
1207 000200 . ISPEED = BIT7 sWORD #8 BYTE O ISPEED H 
1208 000100 $O.IRDY = BIT6 3 IRDY L 
SO. IONL = BITS 3 ONL L 
10 000020 SO. ILOP = BIT4 3 ILOP L 
1211 000010 SO. IDBY = BITS PF IOBY L 
1212 000004 $O.IRWD = BIT2 3 IRWD L 
1213 000002 SO.IFBY = BIT1 3 IFBY L 
1214 000001 SO.IFPT = BITO 3 IFPT L 


SEQ 0032 
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1216 -SBTTL SPECIAL MACROS AND OPDEFS. 


SEQ 0033 


+ 
1219 ISAVE GENERAL REGS 1 TO 5 
1220 3- 


1269 -ENOM 


j 
| 
| 

1221 

1222 -MACRO SAVREG 

1223 JSR RS ,REGSAV 

1224 .ENOM 

1225 

1226 3¢ 

44 s MACRO TO FORCE AN ERROR 

t- 
29 .MACRO FORCERROR TAG,NOTSSR 

1230 »NLIST 

1231 -IIF NOF LISTALL, .NLIST 

1232 LIST 

1233 -IF 6 NOTSSR 

1234 MOV TSSRCRS),.R1 sREAD TSSR 

1235 -ENOC 

1236 MOV FORCER,FORCER 3IS FORCER SET? CLEAVE C BIT ALONE) 

1237 BNE TAG ;8R IF YES 

1238 »NLIST 

1239 -IIF NOF LISTALL, .LIST 

1240 -LIST 

1241 .ENDM 

1242 

1243 3° 

1244 3; MACRO TO FORCE AN xr TO AVOID SECTION ITERATIONS 

1245 3 WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

1246 3 SO TO rence ERRORS AND EXIT ON 1 ERROR SET 

1247 3 FORCER TO 177777 

Eat 3 TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 

ge 

1250 .M“ACRO FORCEXIT TAG 

1251 -NLIS 

1252 .IIF NOF LISTALL, .NLIST 

1253 LIST 

1254 MOV FORCER ,FORCER :IS FORCER NEGATIVE? 

1255 BMI TAG 38R IF YES 

1256 -NLIST 

1257 .IIF NOF LISTALL, .LIST 

1258 -LIST 

1259 

1260 3¢ 

ret : MACRO TO INCREMENT ERROR COUNTS 

1263 MACRO NEXT .ERRNO 

1264 -NLIST 

1265 333.211F NOF LISTALL, .NLIST 

1266 ERRNO=ERRNO+1 

1267 :33-ITIF NOF LISTALL, .LIST 

1268 LIST 
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002170 000000 
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IMACRO TO PERFORM XOR 
t- 


-MACRO XOR A.B 
MOV 

BIC 8, (SP) 

BIC 


EN=0 INITIALIZE ERROR NUMBER 
“SBTTL FORCER - FORCE ERROR FLAG 


é 
s THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
: TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 

H 


FORCER: : 0 FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
s - BY THE MACRO “IFERROR”). AN ERROR NEED NOT - 
s - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 
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SEQ 0035 





GLOBAL DATA SECTION 
1294 -SBTTL GLOBAL DATA SECTION 
1295 
1296 soe 
1297 sTHE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
1298 3IN MORE THAN ONE TEST. 
1299 t-- 
t301 
F 
1302 3THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
130° sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 
1305 002172 000000 EPRTSU:: -WORD O sPRINT SWITCH 
1306 002174 000000 UNITN: : -WORD O sUNIT @ UNDER TEST. 
1307 002176 000000 QVP:: -WORD O Hits VERIFY FLAG. 
002: 000000 CSR 3 -WORD O OF CSR FOR CURRENT DEVICE 
002 000224 IVEC:: -WORD 224 V INTERRUPT VECTOR 
1310 002204 000200 IPRI:: -WORD PRIO4 s INTERRUPT PRIORITY 
1311 002206 000000 TSTCNT:: -WORD O ;NUMBER OF TESTS RUN IN THIS PASS 
1312 002210 C00000 LOOPCNT: : -WORD O ; REMAINING ITERATION COUNT FOR TEST 
002212 000000 VCNT: : -WORD O sNUMBER OF DEVICE UNDER TEST 
1314 002214 000000 FATFLG:: -WORDB O iSET IF FATAL ERROR IS DETECTED IN TEST 
1315 002216 000000 INTRECV:: -WORD O sSET IF TAPE INTERRUPT WAS RECEIVED 
002220 000000 EXTFEA:: -WORDB O sEXTENDED FEATURES SOFT SW O=OFF;1=0N 
1317 002222 000000 BENBSW: : -WORD O ;BUFFER ENABLE SWITCH SW O=OFF;1°0N 
000000 EXPO: : -WORD O sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
1319 002226 000000 RECV:: -WORD O omecetveD RAM DATA FOR PRAMPKT ROUTINE 
0022 000000 ERRHI: : -WORD O sHIGH ADDRESS MEMORY OR 
1321 002232 000000 ERRLO:: -WORD O sLOW ADDRESS MEMORY ERROR 
0022 RAMDATA: : -BLKW 16. {DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
1323 002274 000000 RAMSIZ:: «WORD O sRAM DATA SIZE FOR PRAMPKT ROUTINE 
1324 002276 000000 RCVHIADD: -WORD O sRECEIVED BUFFER HIGH ADDRESS 
002 000000 RCVLOADD -WORD O s RECEIVED BUFFER LOW ADDRESS 
1326 002302 000000 COUNT: : -WORD O sTEST COUNT PATTERN 
1327 002304 000000 DATA:: -WORD O sTEST DATA 
1328 002306 000000 TSTFLAG:: -WORD O sTEST FLAG WORD 
1329 002310 900000 TSTPTR:: -WORD O ;TSTBLK POINTER 
002312 000000 MNO: : -WORD O sPRINT ROUTINE TEMP 
1331 002314 EXPMSG: : BLKB 100. sEXPECTED MESSAGE BUFFER DATA 
002460 RECMSG -BLKB 100, sRECEIVED MESSAGE BUFFER DATA 
1333 002624 TMPBFR -BLKB 80. s TEMPORARY STORAGE FOR PRINT 
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SEQ 0036 
TSTBLK - TEST DATA TABLE 
1335 .SBTTL TSTBLK - TEST DATA TABLE 
1336 | 
1334 ° | 
3 
Heat sTHIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS j 
340 3 
133 sIN SEQUENCE THE DATA IS: 
1343 3 ALL ZEROS 
1344 3 ALL ONES 
1345 3 WALKING ONES 
1346 3 WALKING ZEROS 
1347 3 ALTERNATING ONES AND ZEROS 
1346 3 
1349 s- 
1350 
1351 002744 TSTBLK: : 
1352 002744 000000 -WORD O sALL ZEROS 
1353 002746 177777 «WORD 177777 sALL ONES 
1354 002750 000001 -WORD BITO sDATA FOR WALKING ONES 
1355 002752 -WORD BIT1 
002754 -WORD B6IT2 
1357 002756 000010 -WORD BITS 
S8 0027 -WORD BIT4 
1359 002762 -WORD BITS 
002764 000100 -WORD BIT6 
1361 002766 -WORD BIT7 
1362 002770 -WORD BITS 
1363 002772 001000 -WORD BIT9 
1364 002774 -WORD BIT10 
1365 002776 -WORD BIT11 
3000 010000 -WORD 6BIT12 
1367 003002 -WORD BIT13 
3004 040000 -WORD BIT14 
1369 003006 100000 -WORD BIT15 
1370 003010 177776 . WORD tCBITO sDATA FOR WALKING ZEROS 
1371 003012 177775 -WORD rCBIT1 
1372 003014 177773 -WORD *tCBIT2 
1373 003016 177767 . WORD tCBIT3 
177757 -WORD *tCBIT4 
177737 . WORD tCBITS 
1376 003024 177677 -WORD *tCBIT6 
1377 003026 177577 - WORD tCBIT7 
1378 003030 177377 . WORD tCBITS 
32 176777 -WORD *tCBIT9 
7577 -WORD *tCBIT10 
1381 003036 173777 -WORD *tCBITil 
167777 -WORD *tCBITi2 
1383 003042 157777 -WORD *tCBIT1I3 
137777 . WORD tCBIT14 
1385 003046 077777 WORD tCBITiS5 


1386 003050 125252 “WORD 125252 ;ALTERNATING ONES, ZERO 
1387 003052 052525 "WORD 052525 ;ALTERNATING ONES, rERO S oppOSITE FROM ABOVE 





| 
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38 
1439 003170 
1440 003370 


1441 
1442 003372 


000000 100000 000000 
000000 000000 000000 


177777 
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SEQ 0037 


-SBTTL GLOBAL ENVIRONMENT STORAGE 
i STORAGE FOR DEVICE REGISTERS 


DUMMY: ©,100000,0,0 _ ;DUMMY DEVICE REGISTERS... 
0,0,0,0.0,0,0,0 
:...FOR MULTI-UNIT CHECKOUT. 
DUFLG: : WORD 0 "DROPPED UNIT” FLAG. 
}INHIBITS CODE IN “CLEAN-UP. 
NODEV: : WORD 0 FLAG TO SAY NO DEVICE. 
TEMPL: : WORD 0 ;SOME TEMP LOCATIONS. 
TEMP2:: .WORD 0 
XXCOMM: : “WORD 0 XXDP COMM BLOCK POINTER. 
FREE: : "WORD 0 11ST FREE HEMORY ADORESS. .. 
FRESI2: : “WORD 0 AND SIZE CIN WORDS). 
FREEHI: .WORD 0 ;LAST WORD IN FREE SPACE 
KTFLG: : ‘WORD 0 eeTil, MEM AVAIL FLAG - 
;- .WORD 0 = <24K OR NO KT - 
+- NZ = >24K AND KT. 
KTENABLE: : WORD 0 SET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
NXMFLG: : "WORD 0 SET IF WE CAN TEST CLEARED OTHERWISE 
NXMLO: : "WORD 0 iNXM LO ADORESS BITS 
NXMHI : : “WORD 0 iNXM HI ADDRESS BITS FOR DAL’S 16-21 
T23A:: "WORD 0 $11/23A FLAG 
T238:: ~ WORD t] 311/238 FLAG 
TSBFLG: : "WORD 0 iTEST 38 FLAG tO 
PST32U: : “WORD 2000 132W BLOCK ADDRESS FOR 32K START 
SIFLAG: : "WORD 0 
BADOAT: : "wORD 0 ACTUAL DATA 
GDDAT: : “WORD 0 EXPECTED DATA 
LOOPFL: "WORD 0 
CTAB: : ;CONFIGURATION TABLES. 
CTABM: : WORD 0 CONFIG WORK. 
"WORD 0 
“WORD 0 
"WORD 0 
"WORD -1 END OF MEM TABLE. 
TERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
b 
: . UNIT NOT TESTED 
; 100000 = UNIT ONLINE, NO ERRORS 
; LOXXXX = UNIT ONLINE, ENCOUNTERED XXXX ERRORS 
: 160000 = UNI b. NON-EXISTENT DEVICE REGISTER 
: 160001 = UNIT DROPPED, NOT IDLE AT START 
: 14XXXX = UNIT DROPPED, ENCOUNTERED XXXX ERRORS 
ERTABL: BLKW 64. 
ERTABE: "WORD 0 
SKIPT: .WORD 0 s1°SKIP SUBTEST O=NO SKIP OF SUBTEST 





' 
i 
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1509 3 
1510 004117 
1511 004146 
isig ooasis 
1513 00421 

1514 004252 
1515 004274 


003536 
003577 
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123 


003541 
003603 


040 
101 


126 


-SBTTL GLOBAL TEXT MESSAGES 


; "THe GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
s MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
s MORE THAN ONE TEST. 


gee 

t¢ 

NAMES OF DEVICES SUPPORTED 
’ DEVTYP <TSVOS> 


LSOVTYP:: 
-ASCIZ /TSVOS/ 
EVEN 


3° 
sTEST DESCRIPTION 
, DESCRIPT <s#ees TSVOS LOGIC DIAGNOSTIC - CHECK TRANSPORT IF ERROR eeee> 


LSDESC 
* sASCEZ /eeee TSVOS LOGIC DIAGNOSTIC - CHECK TRANSPORT IF ERROR eeee/ 


¢ 
:BIT TO ASCII CONVERSION FOR TSSR REGISTER 


TSSRBIT: : WORD 1$,28,39,48,5%.68,78,88 
“WORD 98:108,118, 128.138, 148,158,168 
1s: ASCIZ ‘SC: 
28: “ASCIZ ‘BIE’ 
38: "ASCIZ SCE’ 
as: “ASCIZ ‘RAR: 
S$: ASCIZ ‘NXM’ 
68: "ASCIZ ‘NBA’ 
78: "ASCIZ ‘ITO 
83: “ASCIZ ‘@ITe: 
9: “ASCIZ ‘SSR’ 
108: :ASCIZ ‘OFL’ 
118:  :ASCIZ ‘BITS 
128:  ‘ASCIZ ‘@IT4’ 
13: !ASCIZ ‘6IT3’ 
148: ‘ASCIZ ‘BIT2" 
158: :ASCIZ ‘®IT1° 
166: :ASCEZ“BITO’ 
SFIERR: ‘ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 
SFHERR: LASCIZ ‘TSSR ERROR AFTER BUS RESET’ 
: «SASCIZ / NON-EXISTANT DEVICE REGISTER/ 
NXRX:  ‘ASCIZ /SA ADORESS: 806/ 
TSSX: ASCII /#A TSBA,TSSR EXP'D: SO6SA,s068N/ 
"ASCIZ /SA TSBA.TSSR REC'D: SO6SA,806/ 
FUSI: ‘ASCII /sNSA/ 
USI:| :ASCIZ / UNEXPECTED INTERRUPT/ 
NST: -ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 


INTX: -ASCIZ /#A CPU PC: S068A TSBA: #06/ 








— 


| 
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11:22 Pege 31-1 
; ed SEQ 0039 


4 “BUS-INIT* DION’ T INITIALIZE CONTROLLER/ 


040 042 -ASCIZ 

003.40 040 040 042 WNSINIT: .ASCIZ / “SOFT-INIT* DION'T INITIALIZE THE DPU/ 
+338 preci 040 040 042 GRINIT: .ASCIZ / “*BUS-RESET* DION’T INITIALIZE THE DPU/ 
1519 004S2 000 : -ASCIZ // 
1320 C04524 O45 116 000 NULCR: ATS a 

poet oH O45 101 040 T: .ASCIZ /8A EXP‘'D: SO68A, REC'D: #06/ 

004 04s 116 045 EXPGT2: .ASCIZ /SNSA EXP'D: REC'D: SOSA 

o0ees7 O45 101 040 DUADI2: .ASCIZ /#A REG(M) WRITTEN’ TO TO: S068A REGCR) READ, EX eXP'D: 068A, REC'D: #06/ 

00474 i122 101 115 PKTRAM:: -ASCIZ Do Not Match Packet Sent’ 

00500 040 040 103 SCME: -ASCIZ / CONFIG SOESN' MATCH MFG. MASTER/ 

oonea 127 122 111 WRTMSG: .ASCIZ ‘WRITE CHARACTERISTICS untied: 

7 00510 124 123 123 WRTERR: .ASCIZ ‘TSSR Incorrect After WRITE « More Bite Set Then SSR’ 
1526 005202 42a 123 123 ROERR: .ASCIZ ‘TSSR Incorrect After More Bits Set La SSR‘ 
1238 poe by 106 101 124 SCHERR: .ASCIZ ‘FATAL ERROR IN SUBTEST - CHECK TAPE,CABLES T etc.’ 

105 122 122 RETERR: .ASCIZ IN SUBTEST - WRITE DATA RETRY FIVE tines F FAILED’ 

1531 005454 645 116 045 NOMEN: .ASCIZ ‘SNSA seses NO NXM ADORE ANNOT TEST NXM TIMEOUT. eeeeetN’ 

005550 045 116 045 6166: .ASCIZ SNA BOGSSHSASESESOHES 11/23A SYSTEM seeasesesessesososNn’ 
tees 005641 045 116 045 meise9: . fe 'SNBA easesessssoasooss 11/238 SYSTEM sesseseensseseesemN’ 
tens -SBTTL GLOBAL ERROR REPORT SECTION 
1537 300 
1538 s THE GL ERROR REPORT SECTION CONTAINS THE PRINTS AND PRINTX 
1539 3s CALLS THAT ARE USED IN MORE THAN ONE TEST. 
ot 3 ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 

t-- 
ise posits} BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 
33 

1563 pes dt 4 PRINTX @NXRX.NODEV sNODEV = NEXM ADDRESS. 

005 013746 003106 MOV »-CSP) 

005736 0127 003773 MOV @NXRX , -C SP) 

005742 012746 000002 MOV @2.-(SP) 

005746 01 MOV SP RO 

005750 104415 TRAP CSPNTX 

peed} 0627 000006 ADO 06.SP 
1544 004737 005764 } PC .EXTEND s PRINT EXTENSION IF REQUIRED. 
1545 005762 

005762 110002: 

005762 104423 TRAP CsMsG 
1547 THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
tty 3s TO ANY OF THE ABOVE ERROR SIGNATURES. 
1550 005764 005727 EXTEND: Tst PCD» 
1551 005766 EXTA: 3 © = NO EXTENSION. 

005770 pod ee | Seq 18 

005772 004 177770 JSR PC. GEXTA 3s APPEND EXTENSION TEXT. 
1ss64 ern 18: PRINTX @NULCR 3s PRINT A BLANK LINE 

776 012746 004524 mov @MULCR , -( SP) 

906002 912746 000001 nov 1. af 

Soeono toes rt} TRAP eeourx 

posed | 62708 000004 ADO es, SP 
1SSS 0060 00020 RTs PC 
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SEQ 0040 
| PRITSSR - PRINT TSSR CONTENTS 
1357 .SBTTL PRITSSR - PRINT TSSR CONTENTS | 
| 1359 1° 
i S60 é H 
1561 ;ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
1562 ;THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
1568 :BY A MESSAGE PRINTING ROUTINE 
: 
1565 ; INPUTS: 
1566 3 
1367 , Ri CONTENTS OF TSSR 
3 
1569 sSUBORDINATE ROUTINES: 
4 
1371 ; CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
Q 
1573 i- 
1574 
1575 006020 PRITSSR: 
1576 006020 SAVREG ;SAVE GENERAL REGISTERS 
1577 006024 010104 MOV R1,R4 ;SAVE THE TSSR CONTENTS 
1578 006026 PRINTB @TSSRFOR,R4 ;PRINT THE CONTENTS OF TSSR 
006026 010446 MOV R4, -(SP) 
006030 012746 006473 MOV @TSSRFOR, -(SP) 
006034 012746 000002 MOV @2,-(SP) 
006040 010600 P-R 
006042 104414 TRAP CsPNTB 
006044 062706 000006 ADD 66 ,SP 
1579 006050 010400 MOV R4,RO ;GET TSSR BACK FOR CHKAMB 
1580 006052 004737 016124 JSR PC. CHKAMB ;ARE CONTENTS AMBIGUOUS ? 
1581 006056 103410 BCS S$ ;BRANCH IF NOT 
1582 006060 PRINTX @AMBTSSR :SHOW CONTENTS ARE AMBIGUOUS 
006060 012746 006713 MOV @AMBTSSR, -(SP) 
012746 000001 MOV #1,-(SP) 
006070 010600 MOV SP 
006072 104415 TRAP CSPNTX 
006074 062706 000004 ADD 64,SP 
1583 006100 010403 S$: MOV R4/R3 ;CONTENTS OF TSSR 
1584 006102 042703 001476 BIC @HEADOR !FATERR! TERCLS R3 ;CLEAR ALL MULTIPLE BIT FIELDS 
1585 006106 001434 BEQ 20$ 3NO BITS ARE SET 
1586 006110 012702 002624 MOV OTMPBFR,R2 ;TEMPORARY ASCII BUFFER 
1587 006114 012701 003476 MOV @TSSRBIT,R1 sASCII EQUIVALENT OF BITS 
1588 006120 005703 10%: TST R3 sREMAINING BITS TO CONVERT 
1589 006122 001413 BEQ 15% ;BRANCH WHEN ALL ARE DONE 
1590 006124 000241 CLC ;CLEAR CARRY FOR SHIFT 
1591 006126 006103 ROL R3 ;SHIFT NEXT BIT TO CARRY 
1592 006130 103006 Bcc 13% ;BRANCH IF BIT NOT SET 
1593 006132 011100 MOV (R1),RO POINTER TO BIT DEFINITION 
1594 006134 112022 118: MOVB (RO)+,(R2)+ sMOVE ASCIZ TO BUFFER 
1595 006136 001376 BNE 11% ;MOVE ALL BITS 
1596 006140 112762 000054 177777 MOVB = @ ,, - 1 (R2) }INSERT A COMMA TO TERMINATE 
1597 006146 005721 134: TST CRi}+ ;POINT TO NEXT DESCRIPTION 
1598 006150 000763 BR 108 ;GET THE REMAINING BITS 
1599 006152 105042 15%: CLRB -(R2) ; TERMINATE THE LINE 
1600 006154 PRINTX @TSSDEF,OTMPBFR ;PRINT THE BIT DEFINITIONS 
006154 012746 002624 MOV OTMPBFR. -(SP) 
006160 012746 006664 MOV @TSSDEF . -(SP) 


kee ee i ee eee ee eee re el 
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| PRITSSR - PRINT 


1601 

1602 006200 
1603 006202 
1604 006206 
1605 oosels 


346 
1619 006352 


TSSR CONTENTS 
012746 000002 
0600 


062706 000006 
0403 
042703 177761 
006754 
346 
012746 006554 


012746 000002 
0600 


: bo 000006 
042703 177717 


006203 
016303 007314 


012746 006615 
000002 


062706 000006 
042704 176377 


012746 006513 
000002 


01 

104415 
062706 000006 
013703 002172 
010346 

012746 000001 
010600 


25%: 
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@2.-(SP) 

SP; RO 

C$PNTX 

66,SP 

ercrTenct R3 
RS}. R3 

aTCOASE RS 


SP 
STéoasc -(SP) 
#2, -(SP) 

SP; RO 


CSPNTX 

06 ,SP 

R4-R3 
OtCFATERR,R3 
258% 

R3 

R3 


RS ¢ 
TSFCODCR3),R3 
@TFCASC,.R3 
R3,-CSP 
@TFCASC, -(SP) 
#2, -(SP) 


CSPNTX 

66 ,SP 
@tCHIADOR .R4 
308 
@TEXASC,R4 
R4, -(SP 
@TEXASC, -(SP) 
42. .(SP) 
CSPNTX 

06, SP 
EPRTSW.RS 


3 
R3,-CSP) 
1, -(SP) 

P,RO 
C$PNTX 

sP 


PC 


sGET Ma F TSSR_CONTENTS 

;CLEAR L_ BUT TERMINATION 
sGET THe TERMINA 
;PRINT THE TERMINATION CODE 


+TSSR CONTENTS AGAIN 
sCLEAR ALL BUT FATAL TERMINATION 
sD0N‘T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
;GET THE FATAL TERMINATION CODE 
;PRINT THE FATAL TERMINATION CODE 


sCLEAR ALL BUT EXTENDED ADDRESS 
s;D0N‘T PRINT IF ZERO 
sPRINT THE EXTENDED ADDRESS BITS 


sPRINT MEAASGE BUFFER ADDRESS 
sPRINT PROPER MESSAGE 


sRETURN TO CALLER 


—_—__——_— 


SEQ 0041 
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1635 006354 045 116 045 EPRT1: .ASCIZ ‘SNA eeeeeCHECK TRANSPORTesses’ 
1636 006413 045 116 O45 EPRT2: .ASCIZ ‘sSNA ——— toh eae IN TRANSPORTeeses’ 


SEQ 0042 


| 
' 

16 73 045 116 04s «6©TS : ASCIZ | 

1639 006515 045 116 045 TEXASC: ASCIZ ‘SNSA Extended Address Bits = #06' | 
j S 045 116 045 TCOASC: ‘SNSA Termination Class Code = sT' | 
| 1641 006615 045 116 045 TFCASC: ASCIZ ‘sNSA Fetel Terminetion Cless Code = sT’ 

164 045 116 04S TSSDEF: ASCIZ ‘sNSA TSSR Bits Set: sT’ 

+263 006713 045 116 045 AMBTSSR: even ASCIZ ‘sNSA TSSR Contents Are Ambiguous’ 

1645 006754 006774 007017 007045 TCOCOD: .WORD 30. as. 33 ,48,5%,6%,7%,88 

1646 006774 116 157 162 18: “ASCIZ 1 Termination’ 

1647 007017 124 145 162 28: -ASCIZ raalaskion cent tion” 

1648 007045 124 141 160 3%: -ASCIZ ‘Tape Stetus Alert’ 

1649 007067 106 1é5 156 4%: -ASCIZ ‘Function Reject’ 

1650 007107 122 145 143 58: -ASCIZ ‘Recovereble Error - Tape Position One Record Down’ 

1651 007171 122 145 143 68: -ASCIZ ‘Recoverable Error - Tepe Was Not Moved’ 

1652 007240 125 156 162 7$: -ASCIZ ‘Unrecoverable Error’ 

1653 007264 106 141 164 8%: -ASCIZ ‘Fatal Controller Error’ 

13 EVEN 

1656 007314 007324 007360 007371 T = 1$,2%,3%,4$% 

1657 007324 111 156 1% “ASCIZ ‘Internal Diagnostic Failure’ 

1658 007 122 145 163 2%: -ASCIZ ‘Reserved’ 

1659 007371 102 165 163 3%: -ASCIZ ‘Bus Interface or Sanity Check Error’ 

007435 122 145 163 4%: 


-ASCIZ ‘Reserved’ 
-EVEN 
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| PRIPKT 
1663 
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003126 


007632 
000003 
000010 


017376 


007574 
000003 


0v0010 


116 
116 


045 PKTFRM: 
045 PKTADD: 


-SBTTL 


t¢ 
sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF 


PRIPKT 


- PRINT THE ADORESS/CONTENTS OF COMMAND PACKET 


A COMMAND PACKET. 


sTHIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


; 
s INPUT: 


-ASCIZ 
-ASCIZ 
- EVEN 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND PACKET ADDRESS 
ADDRESS OF COMMAND PACKET 


R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


0,RS 
KTENABLE 
10% 
R3 
R3,R1 
R4,RO 
RO 


Ri 
bbs f R1,R4 


-(SP) 


oR1 
PC, SETMAP 
RO,R4 


(R4)+,R2 
OPKTFRM,R1,R2 
R2,-(SP) 

Ri, -(SP) 
@PKTFRM, -(SP) 
@3,-C(SP) 

RO 
CsPNTB 
610,SP 


Ri 
R1,RS 
25% 
PC 


sSAVE THE REGISTERS 

sSAVE NO. OF WORDS IN PACKET 
; ABOVE 28K UNDER TEST? 

s6R_ IF YES 
sSET HIGH ORDER ADDRESS TO 0 
sCOPY HIGH ORDER ADDRESS 


GET LOWER ADDRESS 
iSHIFT BIT 15 INTO C BIT 
sAND INTO HIGH ORDER 
;PRINT PACKET ADDRESS 


sGET_HIGH "ahae ADORESS 


5S 

AR6 MAPP FOR 18 BIT ADDRESS 
sGET RETURNED PAR6 ADORESS BIAS 

sSAVE WORD NUMB 

sGET PACKET CONTENTS 

sPRINT THE DATA 


NEXT WORD NUMBER 
; DONE ALL PACKET WORDS? 
sLOOP TILL ALL DONE 
sRETURN 


‘SNSA Packet Word @sD1SA = 806' 
‘SNSA Packet Address = #01805‘ 


SEQ 0043 
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| SEQ 0044 
PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 
i708 .SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 
1708 
1709 1 PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
the sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
: 
1712 s INPUTS: 
1713 3 
1714 ; R1 RECEIVED DATA 
1715 3 R2 EXPECTED DATA 
1716 3 
afne sOUTPUT 
: 
1733 3 RO XOR OF EXPECTED/RECEIVED DATA 
ge 
1721 007670 PRIBXOR: : 
1722 007670 SAVREG sSAVE THE REGISTERS 
1723 007674 010203 MOV R2,R3 EUR The DATA 
1724 007676 XOR R1,R3 FORM THE EXCLUSIVE OR 
1725 007706 012700 177400 MOV @t6<377>,RO iBYT E MASK 
1726 007712 040001 BIC RO,R1 sSAVE LOW BYTE RECV 
1727 007714 040002 BIC RO,R2 sSAVE LOW BYTE EXPD 
1728 007716 BIC RO,R3 sSAVE LOW BYTE XOR 
1729 007720 PRINTB OXORBFOR, R2,R1, RS :PRINT THE MESSAGE 
007720 010346 MOV R3,-CSP) 
007722 010146 MOV R1,-CSP) 
007724 010246 MOV R2,-CSP) 
7726 012746 007752 MOV @XORBF OR, -(SP) 
007732 012746 000004 MOV 04,-(SP) 
007736 01 MOV SP ,RO 
007740 104414 TRAP CSPNTB 
007742 062706 000012 ADD #12,SP 
1730 007746 010300 MOV R3,kO0 sRO HAS XOR ON RETURN 
rss 007750 000207 RTS PC sRETURN TO CALLER 
ti5s 007752 045 116 045 XORBFOR EVEN -ASCIZ ‘sNSA EXPD: SO38A RECV: SO38A XOR: #03' 
1735 SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 
i ; 
3 
17386 ;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
t+ sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
3 
1741 s INPUTS: 
1742 3 
1743 3 R1 RECEIVED DATA 
1744 3 R2 EXPECTED DATA 
1745 
1746 ; OUTPUT: 
1747 Fy 
1748 3 RO XOR OF EXPECTED/RECEIVED DATA 
1749 - 
1750 010020 PRIXOR: : 
1751 010020 SAVREG sSAVE THE RESTSTERS 
1752 010024 010203 MOV R2,R3 iEXPECTED DAT 
1753 010026 xOR R1,R3 FORM THE EXCLUSIVE OR 
1754 010036 PRINTB @XORFOR, R2,R1, 3’ sPRINT THE MESSAGE 








! 
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SEQ 0045 
| PRIXOR - PRINT EXPD, RECV AND XOR 


010036 010346 MOV R3,-(SP) 
g1ene2 gigas mov ac) : 
010070 Vv ox Oe, -(SP) 
010050 012746 000004 MOV @4,-C(SP) 
010054 01 MOV SP RO 
010056 104414 TRAP  CS$PNTB 
010060 062706 000012 ADD $12,SP 
1755 010064 010300 MOV R3,RO sRO HAS XOR ON RETURN 
1756 010066 000207 RTS PC ;RETURN TO CALLER 


1757 
1738 010070 045 116 04S XORFOR: ry ‘SNSA EXPD: S068A RECV: 068A XOR: #06’ 
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4 
1775 010136 
010136 
1777 010142 


+73 010172 
1795 010174 
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PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 


010174 
000002 


000006 


116 


-SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 


3¢ 


;ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


LINPUTS: 

: RO OCTAL VALUE TO CONVERT 

’ Ri TABLE OF POINTERS TO ASCII EQUIVALENT 

3 

3 

PRIEQU: 
SAVREG sSAVE THE REGISTERS 
RTS PC sRETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 


: 


;PRINT CONTROLLER RAM ADDRESS. 
pond ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


‘INPUTS: 

; R4 RAM ADDRESS 

3 

PRIRAM: 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
PRINTB @RAMFOR,R4 PRINT RAM ADDRESS IN ERROR 
MOV R4, -(SP) 
MOV @RAMFOR, -(SP) 
MOV @2,-(SP) 


RTS PC sRETURN 
045 RAMFOR: pee ‘sNSA CONTROLLER RAM ADDRESS = #06’ 


ee | 
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PRIADD 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

18607 

1608 

1609 

18610 010236 

1811 010236 

18 1 013700 

1813 010246 013701 

1614 010252 010102 

1815 010254 101 

18616 010256 100 

1817 010260 
010260 010246 
010262 010046 
010264 012746 
010270 012746 

10274 01 

010276 104414 
010 062706 

te 010304 00020 

1 010306 045 

1621 

1622 

1623 

1624 

1825 

1826 

1627 

18628 

1629 

1830 

18631 

1832 

1633 

1634 

1635 010352 

1836 010352 

1637 010356 013702 

1638 010362 013701 

1839 

1840 

1641 

1842 010366 
010 101 
010370 012746 
010374 012746 
010400 01 
010402 104414 


MACRO YOS.02 Tuesday 17-Sep-85 11:22 Page 37 
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002230 
002232 


010306 
000003 
000010 


116 


002230 
Ov2232 


010434 
000002 


045 


- SBTTL 


3¢ 


iPRINT MEMORY 


PRIADD 


- PRINT MEMORY ERROR ADDRESS 


ee 


SEQ 0047 


ADORESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


ERRHI 
ERRLO 


PRIADD: 


PRIAO: .ASCIZ 
- EVEN 


IMPLICIT INPUTS 


- HIGH ORDER ADDRESS 


- LOW ORDER ADDRESS 

sSAVE R1-RS UNTIL NEXT RETURN 
ERRHI ,RO sGET HIGH ADDRESSS 
a +3 LOW ADDRESS 


RO 
@PRIAO,RO,R2 
R2,-(SP) 

0, -(SP) 
@PRIAO, -(SP) 
@3,-(SP) 


SP, 
CsPNTB 
@ 


sCOPY LOW ADDRESS 
sSHIFT BIT 15 TO C BIT 
sSHIFT INTO HIGH ORDER 

sPRINT MEMORY ADDRESS IN ERROR 


sRETURN 


‘SNSA MEMORY ERROR ADDRESS = #01805’ 


-SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 


3¢ 


T MEMORY 


iPRIN ADDRESS 
THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
| IMPLICIT INPUTS 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


3 
F 
3 ERRHI 
: ERRLO 
3 


PRITADD: 


ERRHI ,R2 
ERRLO,R1 
R1,R2 


RO 
@PRITO, RL 
ePairo 5¢sP) 


SP RO. 


sSAVE R1-RS UNTIL NEXT RETURN 
sGET HIGH ADDRESSS 

sGET LOW ADDRESS 

sCOPY LOW ADDRESS 

sSHIFT BIT 15 TO C BIT 

iSHIFT INTO HIGH ORDER 

sPRINT MEMORY ADDRESS LOW IN ERROR 
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SEQ 0048 
PRITADD - PRINT MEMORY TEST ADDRESS 
010404 062706 000006 ADD #6.SP 
1843 010410 PRINTS #PRIT1,R2 ;PRINT MEMORY ADDRESS HIGH IN ERROR | 
010410 010246 MOV R2, -(SP) 
010412 012746 010477 MOV @PRIT1, -(SP) 
010416 012746 000002 MOV @2,-(SP) 
010422 01 SP. RO | 
010424 104414 TRAP CSPNTB i 
010426 062706 000006 ADD 66,SP 
1644 010432 000207 RTS PC ;RETURN 


1846 010434 045 116 045 PRITO: .ASCIZ ‘sSNSA MEMORY TEST ADORESS LOW = #06’ 
rot 010477 045 116 045 PRITI: oy ‘SNSA MEMORY TEST ADORESS HIGH = #06’ 


VEN 
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SEQ 0049 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
1850 .SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
1852 - 
1853 : 
1854 ;ROUTINE TO ISSUE A SPACE RECORDS 
1855 sCOMMAND (FORWARD OR REVERSE) 
o 
i836 eae 
] 
1859 , R3 NUMBER OF RECORDS TO BE SPACED OVER 
1860 ' BIT15 CONTROLS DIRECTION 
1861 , BITIS = O IS F 
1662 : BIT15 = 1 IS REVERSE 
1963 ’ RS FIRST DEVICE UNIBUS ADDRESS 
. 
1965 ' REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
3 
1867 ;OUTPUT: 
1868 ; 
1869 : CARRY SET - SPACE RECORDS COMMAND OK 
1870 : CLR - SPACE RECORDS FAILED 
1871 : 
1872 3 
1873 : RO THE CONTENTS OF R4 IS MOVED TO RO 
Q 
1675 3 
1876 sIMPLICIT OUTPUT: 
3 
1878 ; TAPE HAS BEEN MOVED 
1879 ; 
18680 s;SIDE EFFECTS: 
1661 3 
18662 3 
1883 3- 
1884 
1868S 010544 SPACE: : 
1686 010544 SAVREG sSAVE THE GENERAL REGISTERS 
1887 010550 012737 000764 010740 MOV #500. , SDELAY 3SET UP DELAY 
1888 010556 012737 140010 010730 MOV #140010, 80% 3SET UP COMMAND, SPACE FORWARD 
1889 010564 005703 TST R3 sCHECK FOR DIRECTI 
1890 010566 100403 BMI my : VERSE INDICATED 
1891 010570 010337 010732 MOV R3,90¢ sLOAD UP NUMBER OF RECORDS TO SPACE 
1892 010574 000407 BR 10% :GO DO COMMAND 
1893 010576 042703 100000 S$: BIC @81715,R3 sCLEAR DIRECTION BIT 
1894 010602 010337 010732 MOV R3 sLOAD UP NUMBER OF RECORDS TO SPACE 
1895 010606 052737 000400 010730 BIS eBiTs gos sSET REVERSE BIT IN COMMAND PACKET 
1896 010614 012704 010730 10$: MOV 0808 3SET UP R4 WITH PACKET ADDRESS 
1897 010620 010465 00000 MOV R4, TS06cRs> 3SEND OUT C 
1898 010624 004737 016330 15%: JSR PC. WAIT! ;WAIT FOR SSR 
1899 010630 103420 ecs 20% BR. IF SSR IS SET AND OK 
010632 DELAY 250 ;DELAY ABOUT .25 SECONDS 
010632 012727 000250 MOV #250, (PC)+ 
010636 000000 .WORD 0 
010640 013727 002116 MOV LSOLY,(PC)-+ 
010644 000000 . WORD 
010646 005367 177772 bEC ~6(PC) 
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MACRO YOS.02 Tuesday 17-Sep-85 11:22 Page 38-1 
RECORDS (FORWARD AND REVERSE) COMMAND 


367 177756 DEC -22(PC) 
001367 BNE .-20 
005337 010740 DEC SDELAY :BUMP DELAY COUNTER DOWN 
001356 BNE 158 :8R, IF MORE DELAY 
000411 8R 608 ;8R IF TROUBLE CARRY = CLEAR 
016501 000002 20%: MOV TSSRCRS),R1 ;READ TSSR 
012702 000200 MOV @ssR, sSET UP EXPECTED 
258: CHP R2,Ri sARE THEY OK 
001401 BEQ 40$ 3BR, IF EQUAL = OK 
000402 BR 608 ;TROUBLE EXIT 
000261 408: SEC sSET CARRY NO TROUBLE 
000401 BR 708 sEXIT 
000241 608: cLC ;CARRY CLEAR = ERROR 
010400 MOV R4,RO sPASS PACKET ADDRESS 
7 RTS ;RETURN 
3 
7 
] 
sPACKET FOR SPACE COMMAND 
3 
010730 .®¢, 6106177770 
3 
;COMMAND WORD 
000000 808: . WORD 
gNUMBER OF RECORDS TO BE SPACED OVER WORD 
000000 $: . WORD 
000000 “WORD 
000000 “WORD 
000000 SDELAY: -WORD ;DELAY COUNTER 


“SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 








{ 
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SEQ 0051 
WRTCHR - WRITE CHARACTERISTICS COMMAND 
1934 
1935 IROUTINE TO ISSUE A WRITE CHARACTERISTICS 
1936 1 COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 
1938 PINPUT: 
1939 , R4 ADORESS OF PACKET FROM TEST 
1940 : RS FIRST DEVICE ADORESS 
1941 , REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
i 
i383 sOUTPUT: 
1944 , RO TSSR CONTENTS 
1945 , CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
et ’ CLR - WRITE CHARACTERISTICS FAILED 
8 
1948 sIMPLICIT OUTPUT: 
3 
1950 : MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
1951 , SOFTWARE SWITCHES SET AS FOLLOWS: 
1952 : EXTFEA = EXTENDED FEATURES PRESENT 
195 ’ BENBSW © BUFFER ENABLE SWITCH ON OR OFF 
954 é 
1955 sSIDE EFFECTS: 
1956 t- 
1957 010742 WRICHR: : 
1958 010742 SAVREG sSAVE THE GENERAL REGISTERS 
1959 010746 005037 002222 CLR BENBSW ;CLEAR BUFFER ENABLE 
1960 010752 005037 002220 CLR EXTFEA sCLEAR EXTENDED FEATURES SW SWITCH 
1961 010756 010465 000000 10%: MOV R4, TSDBCRS) sSEND OUT C 
1962 010762 004737 016416 JSR PC. CHKTSSR sWAIT FOR SSR 
1963 010766 103401 BCS 20% 30R, IF SSR IS SET AND OK 
1964 010770 000435 BR 60% 38R IF TROUBLE CARRY = CLEAR 
1965 010772 016501 000002 208: MOV TSSR(RS),R1 sREAD TS 
1966 010776 012702 000200 MOV @SSR.R2 3SET UP EXPECTED 
1967 011002 032701 000100 BIT @OFL.R1 sWAS OFF LINE SET IN TSSR 
1968 011006 001402 BEQ :8R, IF NO OFL SET 
1969 011010 052702 000100 BIS OOFL .R2 ;MAKE THEM LOOK ALIKE 
1970 011014 020201 25¢: CMP R2,Ri 3ARE THEY OK 
1971 011016 001401 6EQ 40% :6R, IF EQUAL = OK 
1972 011020 000421 BR 60% sTROUBLE EXIT 
1973 011022 062704 000010 40%: ADD 08. ,R4 POINT TO WRT CHARA DATA PACKET 
1974 011026 011403 MOV (R4),R3 :GET ADORESS OF MESSAGE BUFFER 
1975 011030 032763 000200 000012 BIT 6X2.EXTF ,.XST2(R3) sEXTENDED FEATURES BIT SET? 
1976 011036 001402 BEQ :8R IF NO 
1977 911040 005237 002220 Se INC EXTFEA 3SET EXTENDED FEATURES SW SWITCH 
1979 011044 032763 000100 000012 BIT @X2.BUFE,.xXST2(R3) :BUFFER ENABLE SWITCH SET 
1980 011052 001402 BEQ 508 BR IF SWITCH NOT SET 
1981 011054 005237 0v2222 INC BENSSW SET SOFTWARE SWITCH FOR ENABLED 
1962 011060 508: 
1983 011060 000261 SEC sSET CARRY NO TROUBLE 
1984 011062 000401 BR 708 sEXIT 
1985 011064 000241 60%: CLC ICARRY CLEAR = ERROR 
1986 011066 016500 000002 70$: MOV TSSRCRS),RO sRETURN TSSR CONTENTS 
1987 011072 000207 RTS PC sRETURN 
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1988 .SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 
ot) 2° 
1991 
1998 ITHIS ROUTINE WILL REWIND THE SELECTED TAPE. 
1994 ; CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
1995 ; TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
1996 ; SSR TO SET IN THE TSSR 
1997 3 
1998 ; 
1999 iCALLING SEQUENCE: 
2000 ’ 
2001 ; 00 A SOFT INIT 
2002 ; DO A WRITE CHARACTERISTICS 
200 ; JSR . REWIND 
2004 3 
2005 s INPUT: 
2007 ; RS FIRST DEVICE UNIBUS ADORESS 
: 
2010 SOUTPUT 
201 ; Ro THE CONTENTS OF R4 IS PASSED TO RO 
2018 
sors Silos REWIND: * SAVREG SAVE R1-RS UNTIL NEXT RETURN 
11100 012704 011170 MOV) 6 @RMPACK.R4 TET PACKET RODAESS 

2019 011104 010465 000000 MOV «RA, TSOBCRS) iSEND PACKET ADORESS TO EXECUTE 
2020 011110 012703 000550 nov €360. RS : TIME FOR 2400’ REEL TO REWIND 

011114 004737 016330 108: JSR PC. WALTF WAIT FOR SSR TC SET 

0 103417 ecs 208 sLEAVE WHEN SSR IS SET 

01 DELAY 250. ;WAIT FOR .25 SECONDS 

o1 912727 000372 MOV. 6250. .(PC)+ 

011 “WORD 

011130 013727 002116 MOVs LODLY. CPC)» 

011134 000000 WORD «O 

011136 005367 177772 bec 0-6 PC) 

911142 00 BNE A 

177756 DEC —_:« -22¢PC) 
Sosses bee as? BUMP COUNTER DOWN 
rs 001357 ee 108 iKEEP GOING 
mOV 
RIS 


2025 QOL Sa P CARRY TO SET ERROR 
910400 208 R4.RO ASS THE PACKET ADORESS 
000207 , PC tRETURN 
011170 -*¢, 01026177770 

2034 

2035 


— 102010 sPOSTION COMMAND (REWIND) 
Qo USED 


" 





i meetetieeettietie et 
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| SEQ 0053 
CKRAM - COMPARE RAM TO 1/0 PACKET 

ou .SBTTL CKRAM - COMPARE RAM TO 1/0 PACKET 

3° 

039 3 

2040 }ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 

2041 }MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 

5043 }INPUT: 

2044 ’ 

5045 ; R4 ADDRESS OF THE COMMAND PACKET 

2046 : RS FIRST DEVICE UNIBUS ADDRESS 

5048 OUTPUT: 

2049 : 

3050 : CARRY SET - RAM MATCHES PACKET 

2051 ; ;_ CLR = RAM DOES NOT MATCH PACKET 

2033 IMPLICIT OUTPUT: 

Saee THE TABLE RAMDATA IS FILLED WITH THE 

2056 DATA HELD IN 

2037 RAMSIZ IS wT t0'8. FOR PRAMPKT ROUTINE 


SIDE EFFECTS: 
THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


2064 

2065 011174 CKRAM: : 

2066 011174 SAVREG sSAVE THE GENERAL REGISTERS 
2067 011200 012701 002234 MOV @RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
2068 011204 012702 000201 MOV @RMPKTBEG ,R2 sBYTE ADORESS OF FIRST RAM DATA 
2069 011210 005002 CLR R3 ;CLEAR THE ERROR FLAG 

2070 011212 004737 016416 JSR PC,CHKTSSR ;WAIT FOR SS 

2071 01°216 112765 000000 000000 MOVB 00. TSDBCRS) ;SET MAINTENANCE MODE 

2072 “11224 004737 016416 10$; JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

ef-s 011230 010265 000000 MOV R2, rsoe: 83) ;SELECT NEXT RAM ADDRESS 
2074 011234 004737 016416 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

2075 011240 116511 000000 MOVB TSBACRS),(R1) sREAD THE RAM DATA 

2076 011244 122124 CMPB CR1)+,CR4)¢ sCOMPARE TO EXPECTED 

2077 011246 001401 BEQ 20% sBRANCH IF OK 

2078 011250 005203 INC R3 3SET ERROR FLAG 

2079 011252 005202 20%: INC R2 sADORESS OF NEXT RAM LOCATION 
2080 011254 020227 000210 CMP R2, ORMPKTEND sREACHED END YET ? 

2081 011260 003761 BLE 10$% sBRANCH TILL ALL READ 

2082 011262 005703 TST 3WAS AN ERR 

2083 001402 BEQ 30% 3BR IF NOT 

2084 011266 000241 CLC ;CLEAR CARRY TO SHOW ERROR 
2085 011270 000401 BR 50% sAND EXIT 

2086 011272 000261 30%: SEC ;SHOW GOOD COMPARE 

2087 011274 012737 000010 002274 50%: MOV #8. ,RAMSIZ _ gSETUP RAMSIZ FOR PRAMPKT ROUTINE 


2088 011302 000207 RTS PC ;RETURN 


aay 
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| 2930 \SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 
' 209 se 
2092 : 
| B09s }ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 
| 2038 ;MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 
q 
2096 LINPUT ; 
209 | 
2098 : Re ADDRESS OF THE CHARACTERISTICS DATA 
2098 ; RS FIRST DEVICE UNIBUS ADDRESS 
A 
3101 OUTPUT: 
2102 ’ 
3108 : CARRY SET - RAM MATCHES PACKET 
2108 : CLR - RAM DOES NOT MATCH PACKET 
3 
2106 }IMPLICIT OUTPUT: 
; 
3108 : THE TABLE RAMDATA IS FILLED WITH THE 
3109 ; DATA HELD IN 
2110 : RAMSIZ Is SCT 10'S. OR 10. FOR PRAMPKT ROUTINE 
f 
2112 SIDE EFFECTS: 
: 
2114 ; THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 
5116 011304 EKRAM2: : 
5117 011304 SAVREG ;SAVE THE GENERAL REGISTERS 
3118 011310 012701 002234 MOV @RAMDATA,R1 }ADDRESS TO SAVE THE RAM DATA 
5119 011314 012702 000167 MOV @RMCHBEG | R2 BYTE ADORESS OF FIRST RAM DATA 
5120 011320 005003 CLR R3 ICLEAR THE ERROR 
5121 011322 004737 016416 JSR PC .CHKTSSR iWAIT FOR S 
5122 011326 112765 000000 000000 MOVE = @0., TSDBCRS? SET MAIN. 
3123 011334 004737 016416 10$: JSR PC/CHKTS WAIT Fn SSR TO SET 
3124 011340 010265 000000 MOV 2. TSOBCRS) }SELECT NEXT RAM ADORESS 
5125 011 004737 016416 JSR PC ‘CHKTSSR ; FOR SSR TO SET 
5126 011350 116511 MOVE —s TS@ACR'S), (R1) : THE RAM DATA 
5127 011354 122124 CMPB(R1)+, (R46 ‘COMPARE TO EXPECTED 
3128 011356 001401 BEQ 508 }BRANCH IF OK 
5129 011360 INC 3 SET ERROR FLAG 
3130 011362 005202 208 INC ;ADORESS OF NEXT RAM LOCATION 
3131 011364 012737 000010 002274 HO 6. ,RAMSIZ }ASSUME EXTFEA NOT SET 
2132 011372 005737 002220 TST EXTFEA 113 THE SOFTWARE EXTENDED FEATURES SET 
3133 011376 001407 BEQ 25$ F NOT SET 
5134 011400 012737 000012 002274 MOV 910. ,RAMSIZ Set RAMSTZ FOR EXTEND FEATURES 
5135 011406 020227 000200 CHP R2, @RMCHEND AT END OF EXTENDED BUFFER 
3136 011412 003750 BLE ry} ;8R, IF NOT AT END YET 
5137 011414 278 iAT 
3138 011416 020227 000176 258: R2, ORMCHEND -2 }REACHED END YET ? 
3139 011422 003744 $ }BRANCH TILL ALL READ 
1424 005703 278:  =‘TST iWAS AN E 
5141 011426 001402 BEG 308 ;BRANCH IF NOT 
1 1430 000241 cLC CLEAR CARRY TO SHOW ERROR 
5148 011432 000401 508 AND EXIT 
144 011434 000261 30s: SEC ;SHOW GOOD COMPARE 
3145 011436 000207 50s: ARTS eC RETURN 





—— 


ee —  — = 
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SEQ 0055 
_CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 


314? -SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
| ad 
2149 ’ 
| 2150 sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
| 2153 sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
| aise sERROR PRINT ROUTINES. 
2138 s INPUT: | 
i 
2156 ’ RO RECV MESSAGE BUFFER HIGH ORDER ADORESS 
2157 ’ Ri RECV MESSAGE BUFFER LOW ORDER ADDRESS 
2158 : R2 EXPD MESSAGE BUFFER ADORESS 
2138 sOUTPUT: 
3 
2161 ’ CARRY SET - MESSAGE BUFFERS MATCH 
2i6¢ i CLR -MESSAGE BUFFERS DON’T MATCH 
gies sIMPLICIT OUTPUT 
a 
2166 : EXPMSG BUFFER IS SET TO EXPD DATA 
2167 : RECMSG BUFFER IS SET TO RECV DATA 
2168 : RCVHIADO SET TO HIGH ORDER ADDRESS OF RECV 
2168 : RCVLOADOD SET TO LOW ORDER ADDRESS OF RECV 
3 
171 i 
2172 011440 MSG: : 
2173 011440 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
2174 011444 010037 002276 MOV RO, RCVHIADD sSAVE RECV HIGH ADDRESS 
2175 011450 010137 002300 mov R1, RCVLOAD sSAVE _RECV LOW ADDRESS 
2176 011454 005737 003120 TST KTENABLE sTESTING ABOVE 28K? 
2177 011460 001403 BEQ 108 BR IF NO 
2178 011462 004737 017376 JSR PC, SETMAP sRETURN ADDRESS BIASED TO PARG IN RO 
79 011466 010001 MOV RO,R1 :GET RETURNED ADDRESS BIASED TO PAR6 
2180 011470 005004 10: CLR Ra sWORD IN BUFFER 
° CLR R3 sCLEAR ERROR SEEN FLAG 
2182 011474 010205 MOV R2.RS iGET EXPD BUFFER ADDRESS 
2183 011476 011264 002314 iS#, MOV (R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
2184 011502 011164 002460 MOV (R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
2185 011506 0222 CMP (R2)+,(R1)+ sEXPD EQUAL RECV? 
2186 011510 001401 BEQ 258 BR IF YES 
2187 011512 005203 INC R3 sSET ERROR SEEN FLAG 
2188 011514 062704 000002 25%: ADD 02,R4 sPOINT TO NEXT WORD ADORESS 
2189 011520 020427 000014 CMP R4, 014 sDONE FIRST 7 WORDS? 
2190 011524 003764 BLE 
2191 011526 032765 000200 000012 BIT ox2 .EXTF ,xST2CRS) TS EXTENDED FEATURES SET IN EXPO? 
2192 011534 001403 BEQ 508 ; 
2193 011536 020427 000016 CMP R4.016 iDONE EXTENDED FEATURES WORD? 
2194 011542 003755 BLE 15% : 
2195 011544 005703 50s: TST R3 sANY ERRORS SEEN? 
2196 011546 001402 BEQ 558 i NO 
2197 011550 000241 CLC sSET FAILURE 
2198 011552 000401 BR 608 : 
2199 011554 000261 55%: SEC sSET SUCCESS 
2200 011556 000207 60$: RTS PC sRETURN 
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_CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


SEQ 0056 
| 


s208 .SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
a¢ 

2204 sROUTINE TO COMPARE AN EXPECTED AND RECEIVED NESSAGE ' 
2205 ;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
2206 sERROR PRINT ROUTINES. 
2207 3 
2208 s INPUT: 
2209 3 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
2210 3 R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
2211 : R2 EXPD MESSAGE BUFFER ADDRESS 
seis 3 RS NUMBER OF BYTES TO COMPARE 

; 
2214 sOUTPUT: 
2215 Ps 3 CARRY SET - MESSAGE BUFFERS MATCH 
sei6 . 3 CLR - MESSAGE BUFFERS DON'T MATCH 

3 
2218 sIMPLICIT OUTPUT: 
2219 3 EXPMSG BUFFER IS SET TO EXPD DATA 


RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 


SAVE R1-RS UNTIL NEXT RETURN 
020327 000144 CMP ote » ORECMSG - -EXPHSG 960 ok iF ABOVE MAX ALLOWED? 


5 
000144 MOV @RECMSG-EXPMSG.R3; 880 
011576 PRINTF @DEBUGMSG ; 880 
011576 012746 011712 MOV @DEBUGMSG, -(SP) 
011602 012746 000001 MOV #1, -($P) 


11606 MOV 
011610 104417 TRAP CSPNTF 


011612 062706 000004 @4,SP 
2230 011616 010037 002276 S$: MOV RO,RCVHIADD sSAVE RECV HIGH ADDRESS 
2231 011622 010137 0023500 MOV Ri, RCVLOAD sSAVE _RECV LOW ADDRESS 
2232 011626 005737 003126 TST KTENABLE sTESTING ABOVE 28K? 
2233 011632 001403 BEQ 10% sBR_ IF NO 
2234 011634 004737 017376 JSR PC, SETMAP sRETURN ADDRESS BIASED TO PAR6 IN RO 
2235 011640 010001 MOV RO,R1 sGET RETURNED BOONES BIASED TO PAR6 
2236 011642 005004 10%: CLR R4 sWORD IN BUFFER 


005005 RS 3CL SEEN FLAG 

2238 011646 111264 002314 15%: MOVE C(R2),EXPMSGCR4) ;SAVE EXPD FOR ERROR REPORT 
2239 011652 111164 002460 MOVE (R1),RECMSG(R4) iSAVE RECV FOR ERROR REPORT 
2240 011656 122221 CMPB CR2)+,CR1)+ sEXPD EQUAL RECV? 
2241 011660 001401 BEQ 25% 36R IF YES 
2242 011662 005205 INC RS iSET ERROR SEEN FLAG 
2243 011664 062704 000001 25%: ADD #1,R4 sPOINT TO NEXT BYTE 

s DONE ~ BYTES? 


ah 
2245 011672 002001 BGE 50$ :BR IF 
2246 011674 000764 BR 15% 300 NEX xt BYTE 
2247 011676 005705 SO0$: TST RS sANY ennons SEEN? 
2248 0117 :BR 
2249 011702 000241 CLC iSET FAILURE 
2250 011704 000401 BR 
2251 011706 000261 SS$: SEC iSET SUCCESS 
2252 011710 000207 60$: RTS PC sRETURN 


°o 
re: 


2220 3 RECMSG BUFFER IS SET TO RECV DATA 

2221 3 RCVHIADD SET TO HIGH ORDER ADORESS OF RECV 
+ 
éxmsGe: : 





TSVS - GLOBAL AREAS MACRO YOS.02 Tuesdey 17-Sep-85 11:22 Page 45 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
2254 011712 120 122 117 DEBUGMSG: .ASCIZ Fen ened INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-’ ; 880 


2255 012002 045 116 O45 FERCM: .ASCII /SNSA_ se0/ 
2256 012015 040 040 124 ERCH: -ASCIZ / TSSR_ ERROR CODE REC'D = 
012046 056 SI ASCIZ a 


SEQ 0057 


| 
| 
| 
| 
i 
| $559 
| 5260 


2257 056 056 : .ASCI . AF beer DOING SOFT ONIT? 
2258 012101 124 105 123 TINERR: .ASCIZ /TEST: ... j 
-EVEN 
a¢ 
2261 3 
sees sPRINT ROUTINE TO FATAL SOFT INIT ERRORS | 
3 
2264 s INPUT: 
2265 3 
sees ’ R1 CONTENTS OF TSSR AT ERROR 
3 
2 :SIDE EFFECTS: 
2269 3 
$209 3 EXECUTES DROP UNIT TO CEASE TESTING 
3 
2272 3- 
2273 
2274 012114 BGNMSG SFIMSG 
012114 SFIMSG: : 
2275 012114 004737 006020 JSR et: PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
2276 012120 004737 017262 JSR Cc, CKDROP sDROP UNIT, IF ALLOWED 
2277 012124 ENOMSG 
012124 L10003: 
012124 104423 TRAP C$mMSG 
2278 
2279 3¢ 
2280 ;PRINT ROUTINE TO PRINT THE CONTENTS OF 
e233 :TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
3 
2283 3: INPUTS: 
2284 3 
2285 : R1 TSSR CONTENTS 
2286 3 RG ADDRESS OF COMMAND PACKET 
2287 3 
2288 3 
2289 
2290 012126 BGNMSG PKTSSR 
012126 PKTSSR:: 
2291 012126 004737 006020 JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
2292 012132 012700 000004 MOV #4,RO sNO. OF WORDS IN PACKET 
2293 012136 004737 007446 JSR PC,PRIPKT iPRINT THE CONTENTS OF COMMAND PACKET 
2294 012142 ENOMSG 
012142 110004; 


012142 104423 TRAP C$MSG 
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IPRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A GET STATUS COMMAND PACKET. 


F 
s INPUTS: 
3 
r R1 TSSR CONTENTS 
$ R4 ADDRESS OF COMMAND PACKET 
t- 
GNMSG PKTGETS 
PKTGETS: 
006020 JS PC,PRITSSR — THE CONTENTS OF TSSR REGISTER 
000002 MOV @2,RO0 WORDS IN GET STATUS PACKET 
007446 JSR PC ,PRIPKT ;PRINT THE CONTENTS OF COMMAND PACKET 
ENOMSG 
L10005: 
TRAP C$MSG 
3¢ 
sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 
3 
s INPUTS: 
3 R1 TSSR CONTENTS 
3 R4 ADDRESS OF COMMAND PACKET 
ge 
BGNMSG SFFMSG 
SFFMSG: : 
006020 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
ENOMSG 
L10006: 
TRAP C$mMSG 
-SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 
3¢ 
sPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
;sBUFFER FOR ERROR REPORTS 
3 
s INPUTS: 
3 
3 R1 CONTENTS OF TSSR 
j R2 LOW ORDER MESSAGE BUFFER 
3 R3 HIGH ORDER MESSAGE BUFFER ADDRESS 
8 NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 
ge 
BGNMSG PKTMES 
PKTMES: : 
006020 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR 
MOV RO ;LOW ORDER ADDRESS 
MOV R3,R1 sHIGH ORDER ADDRESS 
014322 JSR PC ,.PRMESS sPRINT THE MESSAGE BUFFER 
ENOMSG 
L10007: 
TRAP C$mMSG 


SEQ 0058 


! 
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| ADDSSR - PRINT TEST ADDRESS AND TSSR 


2339 SBTTL ADDSSR - PRINT TEST ADORESS AND TSSR | 
2341 {PRINT ROUTINE TO PRINT THE CONTENTS OF 
2542 ITSSR AND A MEMORY TEST ADDRESS 
5344 i INPUTS: 
3345 ; 
2346 ; RS FIRST DEVICE UNIBUS ADDRESS 
3347 : ERRHI HIGH ORDER MEMORY TEST ADDRESS 
2348 ; ERRLO LOW ORDER MEMORY TEST ADDRESS 
2350 ’ 
2351 012206 BGNMSG ADDSSR 
012206 ADDSSR: : 
2352 012206 004737 010352 JSR _—s- PC, PRITADD ;PRINT MEMORY TEST ADDRESS 
5358 012212 016501 000002 MOV —s TSSRCRS).RL 'GET CURRENT T 
5354 012216 004737 006020 JSR «PC. PRITSSR PRINT THE CONTENTS OF TSSR REGISTER 
2355 012222 ENOMSG 
012222 10010: 
ase 12222 108428 TRAP C4MSG 
2357 SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 
3¢ 
2359 
2360 PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
2362 IMPLICIT INPUTS: 
2364 : EXPMSG - EXPECTED MESSAGE BUFFER 
2365 ; RECMSG - RECEIVED MESSAGE BUFFER 
3366 : RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
2367 ; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
2369 012224 , BGNMSG MSGEXP 
012224 MSGEXP: : 
2370 012224 012700 000007 MOV Ss: @7, RO ;ASSUME NO EXT FEATURES 
5371 012230 005737 002220 7ST —«EXTFEA SEXT FEATURES SET? 
3372 012234 001402 Beatié*Sé$: i8R IF NO 
3373 012236 012700 000010 MOV —s- 8, RO JEXT FEATURE BUFFER IS 8 WORDS 
5374 012242 004737 014632 St: JSR «PC. PRMSGEXP PRINT EXPD/RECV MESSAGE BUFFERS 
2375 012246 ENOMSG 


012246 L10011: 
012246 104423 TRAP C$MSG 





FIFEXP 


2390 012250 
012250 


A) 
2391 oieere 


012320 
2395 012322 
2396 012371 
2397 
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012322 
000002 


000006 
012371 
000001 


116 
116 


SEQ 0060 


-SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 


3¢ 


5 
sPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
‘ 


: Ri - BYTE COUNT 
a 
sIMPLICIT INPUTS: 
: 
; EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
; RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
i- 
FIFEXP 
FIFEXP:: 
INTX er IF ISG. RI sPRINT BYTES TRANSFERRED 

MOV OF IF 1MSG, -(SP) 

MOV @2,-C(SP) 

MOV RO 

TRAP CSPNTX 

ADD 06, SP 

PRINTX @FIF2MSG ;PRINT HEADER MSG 

MOV OF IFOMSG, -(SP) 

MOV 41 > -(SP) 

MOV SP ,RO 

TRAP C$PNTX 

ADD 64,SP 

MOV R1,RO :GET BYTE COUNT 

JSR PC. PRBYTEXP ;PRINT FIFO BYTES IN ERROR 

ENDMSG 
110012: 

TRAP  C$MSG 

045 FIFIMSG: -ASCIZ ‘sSNA NUMBER OF BYTES TRANSFERRED = sD2° 
045 FIFOMSG: "ASCIZ ‘sNSA FIFO DATA BYTES IN ERROR: ' 





yyy 


spebasaees 


RRVe SIs 
ouau ro 
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012701 
12100 
001410 
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MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


012472 


SEQ 0061 


-SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


s¢ 


;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
i 


IMPLICIT INPUTS: 

; EXPMSG - EXPECTED MESSAGE BUFFER 

: RECHSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 

i 


RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
BGNMSG MSGSTAT 


MSGSTAT: : 
"] @STATCOD,R1 sASCII ADDRESS TABLE 
108: MOV CR1)+¢,RO sDONE ALL MSG LINES? 
BEQ 20% 3;6R IF YES 
PRINTX RO sPRINT STATUS SIT NAMES 
Vv RO, -CSP) 
MOV #1,-CSP) 
SP ,RO 
TRAP CSPNTX 
ADD 64 ,SP 
BR 108 300 ANOTHER MSG LINE 
208: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
JSR PC .PRMSGEXP iPRINT EXPD/RECV MESSAGE BUFFERS 
ENDOMSG 
L10013: 
TRAP C$mMSG 
STATCOD: - WORD is, 228. 3$,4%,5%,6%,0 
1%:.ASCIZ ‘sNSA Tape Bus iene s in Word 3° 
2¢:.ASCIZ ‘sNSA PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2>' 
3%:.ASCIZ ‘sNSA IRESV2<14> IIDENT<11> IWHER <8> IONL<5S> IFBY<1>‘ 
4%: .ASCIZ ‘NSA IRESV1<13> ICER <10> ISPEED<7> ILOP<4> IFPT<O>' 
5%:.ASCIZ ‘sNSA Tape Bus Signals in Word @9:' 
00s ASCEE mn DATMIS<7> ILW<6> OUTRDY<S> INRDY<4>' 





i 
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MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


Prt | -SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
3¢ 

2434 

att] ;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

2437 

2438 3 

2439 3 - 

2440 ‘ RECMSG - RECEIVED MESSAGE BUFFER 

2441 3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

ar | 3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 

t- 


2445 015144 012701 0135206 ; @LOOPCOD ,.R1 sASCII ADDRESS TABLE 
2446 013150 012100 sD0NE_ AL 


MOV 
10%: MOV oe L_ MSG LINES? 


Q :BR $s 
54 PRINTX RO ;PRINT STATUS BIT NAMES 
013154 ©¢10046 MOV RO, -(SP) 
013156 012746 000001 MOV #1,-(SP) 
013162 010600 MOV 
013164 104415 TRAP CSPNTX 
013166 062706 000004 ADD 04,SP 
2449 013172 000766 BR 108 ;00 ANOTHER MSG LINE 
2450 013174 012700 000012 208: MOV #10. ,RO : ER OF WORDS IN A READ STATUS BUFFER 
13200 004737 014632 JSR PC , PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
2452 013204 ENOMSG 
013204 L10014: 
oats 013204 104423 TRAP  C$MSG 
2454 013206 013226 013301 013400 LOOPCOD: .WORD 16,2%,3%,48,5%,6%,78,0 
2455 013226 045 116 045 1%:.ASCIZ ‘NSA Tape Bus Loopback Signals in Word #8:' 
2456 013301 045 116 045 24:.ASCIZ ‘sNSA PARERR<15> IRESV2<14> IRESV1<13>° 
24 045 116 045 «38: NSA IHISP=>IEQT<12>  IWRT=>IIDENT<11> IREV *>ICER <10>° 


@NSA ITADO=>IRDY<06> ITADi=>IONL <05> IERASE=>ILDP <04>' 
SNSA IREW =>IDBY<03> IRWU =>IRWD <02> IFEN =>IFBY <Oi>* 


:.ASCIZ ‘ 
-ASCIZ * NSA IWFM =>IFMK<09> IEDIT=>IHER <06> IFAD =>ISPEED<07>' 
‘SNSA IGCO =>IFPT<O00>’ 


2458 01 4%: 

2459 013576 045 116 045 5$:.ASCIZ 
2460 013675 6%:. 

2461 013774 045 116 045 7%:.ASCIZ 
2462 E 


: 
LINPLICIT INPUTS: | 
EXPHSG - EXPECTED MESSAGE BUFFER 
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| MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


-S@TTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
é 


| 
| 
IMPLICIT INPUTS: 


RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 


3 

; RECMSG - RECEIVED MESSAGE BUFFER 

; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
3 


014022 BGNMSG MSGSUB 

014022 MSGSUB: : 

014022 012700 000012 MOV #10. ,RO sSIZE OF WRITE SUBSYSTEM BUFFER 
014026 004737 014632 JSR PC ,PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 


| 
EXPMSG - EXPECTED MESSAGE SUFFER 


014032 L10015: 
014032 104423 TRAP C$MSG 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 


3° 
;PRINT ROUTINE TO PRINT MEMORY ADORESS DATA COMPARE ERROR 
;IMPLICIT INPUTS: 


ssbseasce? $33 vaucsassseeent 


, ERRHI - MEMORY ERROR HIGH ORDER ADORESS 
90 : ERRLO ~- MEMORY ERROR LOW ORDER ADDRESS 
2491 ; EXP - EXPECTED DATA 
2498 , RECV - RECEIVED DATA 
249 s- 
2494 014034 BGNMSG MEMADD 
014034 MEMADD: : 
2495 014034 004737 010236 JSR PC ,PRIADD :PRINT MEMORY ADDRESS IN ERROR 
2496 014040 013701 002224 MOV EXPD,R1 sGET EXPD DATA 
2497 014044 013702 002226 MOV RECV.R2 :GET RECEIVED DATA 
2498 014050 004737 010020 JSR PC .PRIXOR ;PRINT EXPD/RECV 
2499 014054 
01 L10016: 


4054 : 
014054 104423 TRAP ‘C8MSG 








1 
; 
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SEQ 0064 
PRAMPKT - PRINT RAM AND PACKET DATA 
30} .SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 
se i 
250 sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
2504 ;WHEN THE RAM DATA DOES NOT MATCH. | 
2507 — 
2508 R4 POINTER TO COMMAND PACKET 
2509 IMPLICIT INPUTS: 
2510 , RAMDATA DATA AS READ FROM THE 
251 , RAMSIZ NUMBER OF BYTES IN PACKET 
231 IF RANSIZ*0 THEN DEFAULT TO 8. 
2514 IMPLICIT OUTPUTS: 
2515 RAMSIZ SET TO 0 
S519 014056 Sane 
2518 014056 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
2519 014062 12701 002234 MOV @RAMDATA,R1 sDATA FROM THE RAM 
2520 014066 CLR sINIT BYTE NUMBER 
2521 014070 122124 S$: CPB sé (R1)+, (R4)« sCOMPARE EXPECTED, RECEIVED 
2522 014072 001005 BNE 78 :0R IF NO MATCH 
2523 014074 FORCERROR 7%, NOTSSR 
2524 014104 BR 08 3880 
2525 014106 116105 177777 78: MOVE = -1(R1) RS sGET RECV RAM DATA 
2526 014112 116403 177777 MOVB = -1(R4) RS sGET EXPD PACKET DATA 
2527 014116 XOR RS 3XOR EXPD/RECV 
2528 014126 177400 BIC #177400,R3 ;LOW BYTE ONLY 
2529 014132 116137 177777 002226 MOVB “26R1) REC ;GET RECEIVED RAM DATA 
2530 014140 116437 177777 002224 MOVB = -1(R4.) .EXPD ;GET EXPECTED RAM DATA 
2531 014146 PRINTB ehanace R2,RECV.EXPD,RS 
014146 010346 MOV R3, -(SP) 
014150 013746 002224 MOV EXPO, -( SP) 
014154 013746 002226 MOV RECV, -(SP) 
014 01 MOV R2, -(SP) 
014162 012746 014236 MOV @RAMASC, -(SP) 
14166 012746 HOV #5, -(SP) 
014172 01 MOV SP; RO 
014174 104414 TRAP Cé#PNTB 
014176 706 000014 ADO 614,SP 
2532 014202 10%: INC R2 sUPDATE BYTE COUNT 
2533 014204 005737 002274 TST RAMSIZ sDEFAULT TO 8.? 
2534 014210 001404 BEQ 15% ;8R IF YES 
2535 014212 020237 002274 CMP R2,RAMSIZ sD0NE ALL BYTES? 
2536 014216 003724 BLE 5$ :8R IF NO 
2537 014220 000403 BR 253 , 
2538 014222 020227 000010 158: CMP R2,06 s00NE DEFAULT NUMBER OF BYTES? 
2539 014226 002720 208: LT 53 38R IF 
014230 005037 002274 25¢: CLR RAMSIZ sSET DEFAULT RAMSIZ 
2541 014234 000207 RTS PC sRETURN 
2543 014236 045 116 045 RAMASC: ‘SNSA BYTE: SD28A RAM: SO3SA Packet: SO38A XOR:#03' 
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PRESS - PRINT CONTENTS OF MESSAGE BUFFER 


2546 
2547 
S509 
2550 3 
2551 s INPUT: 
' RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
, Ri HIGH ORDER ADORESS OF MESSAGE BUFFER 
Fs , NOTE: Ri IS IGNORED IF KTENABLE FLAG I AR 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT TINE 
014322 PRMESS: SAVREG :SAVE THE REGISTERS 
2358 014526 010005 MOV RS sSAVE LOW ORDER ADORESS 
01 005737 003126 TST KTENABLE ' SS ABOVE 26K? 
2560 014334 001001 BNE 108 30R IF YES 
014336 i CLR Ri sSET HIGH ORDER ADORESS TO 0 
014 01010 10: MOV R1.RS sSAVE HIGH ADORESS 
014342 0061 ROL RO sSMIFT BIT15 TO C BIT 
2564 O1 €06101 ROL Ri sSHIFT TO HIGH ORDER FOR PRINTOUT 
2565 014346 PRINTX @PROASC,R1.RS PRINT BUFFER ADORESS 
014346 01 MOV RS, -(SP) 
014350 010146 MOV Ri. -(SP) 
014352 012746 014500 MOV -(SP) 
014356 012746 3 HOV #3. ggs°) 
oi eaes toss 4 TRAP CePnTx 
014 062706 000010 ADO 610, SP 
2566 01 PRINTX PR sPRINT HEADER FOR CONTENTS 
014 012746 014545 MOV @PRIASC, -(SP) 
014376 012746 1 MOV @1,-(SP) 
014402 010600 MOV SP RO 
014404 104415 TRAP COPNTX 
014406 706 000004 ADO 64,SP 
? o14aia Ra sMUMBER OF THE NEXT WORD 
0144 010501 nOV RS.R1 sCORY LOW ORDER ADORESS 
0 10416 010300 MOV R3.RO ' HIGH ORDER ADORESS 
0 1403 BEQ - goi 16R IF NOT ABOVE oem 
71 O1 004737 017376 JSR » SETMAP sSETUP PAR ADORE ss IN RO 
23 010005 HOV RS 1GET PAR FORMAT SS ABOVE 
0144 208: PRINTX @PRASC.R4,(RS)+ ;PRINT THE CONTENTS OF MEMORY sorrer 
014430 012546 Roy RS) (SP) 
144 10446 MOV -¢$p 
ert} 46 014603 MOV @PRASC, -(SP) 
014440 012746 3 MOV @3, a6s* 
Sisase Thee SObNTX 
0144 000010 610,SP 
Ra sMUMBER OF THE NEXT 
020427 000007 R07 sD0ME ALL YET ? 
8 
oagres + at PAINT FIRST 7 LORDS 
000200 000012 TT x2. ExTF,.xstacas} FEATUTES OM 2 
nes 4 ‘ : STATUS WORD 
3 


-SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


ITHIS ROUTINE PRINTS THE CONTENTS OF 
THE 7 OR 6 WORD MESSAGE GUFFER RETURNED BY THE TSV-0S. 








| TSV3 - GLOBAL AREAS 
- PRINT CONTENTS OF MESSAGE BUFFER 


| PRMESS 
2585 


: 


5057 
2620 015115 
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002300 
002276 


015115 
000005 


000014 


045 
045 


- EVEN 
-SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


rROUTINE TO PRINT pa shy & AND RECS 
NUMBER 


ivev A aa BUFFERS 


OF WORDS IN BUF 


VIMPLICIT INPUTS: 


' EXPMSG - EXPECTED MESSAGE BUFFER 
' RECMSG - RECEIVED MESSAGE BUFFER 
‘ RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDEF. ADDRESS 
, RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
PRMSGEXP: : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV RO,RS ;SAVE NUMBER OF WORDS 
MOV RCVLOADD , RO :GET RECV LOW ADDRESS 
MOV RO,R4 sCOPY LOW ADDRESS 
MOV RCVHIADD, R1 :GET RECY HIGH ADDRESS 
ROL ;SHIFT BIT15 TO C BIT 
ROL RY :SHIFT TO HIGH ORDER FOR PRINTOUT 
PRINTX @PRMSGO,R1,R4  ;PRINT MESSAGE BUFFER ADDRESS 
MOV R4,-(SP) 
MOV R1,-(SP) 
MOV @PRMSGO, -( SP) 
MOV 3,-C(SP) 
v P'RO 
TRAP C$PNTX 
DD 10,SP 
PRINTX @PRMSG1 ;PRINT HEADER FOR CONTENTS 
MOV @PRMSG1, -(SP) 
MOV 1. (SP 5 
MOV 
TRAP eS bNTX 
CLR :NUMBER OF THE CURRENT WORD 
MOV GEXPMSG,R1 ;GET EXPD BUFFER ADDRESS 
MOV ORECMSG.R2 ;GET RECV BUFFER ADDRESS 
208: MOV (R1),RO GET EXPD 
MOV CR2).RS ;GET RECV 
OR ;XOR EXPD/RECV 
PRINTX RoarsGe R4,(R1)+.(R2)+,R3 
MOV R3,-(SP) 
MOV R2)+, -¢$P) 
MOV Ri)+,-CSP) 
MOV R4, -(SP) 
MOV oPRM -(SP) 
MOV @5.- 5 
MOV SP.R 
TRAP CSPNTX 
ADD $14,SP 
INC ;NUMBER OF THE NEXT 
CMP R4,R5 ;DONE ALL YET? 
BGE 50% ;8R IF YES 
BR 20% :00 ANOTHER 
508: RTS PC ;RETURN 


PRMSGO: .ASCIZ 
PRMSG1: 


-ASCIZ ‘sNSA Noose 
PRMSG2: ‘ 


-ASCIZ ‘sNBA 


SNSA Message Buffer mentee Se . , 801805" 
Buffer Conten 
@sD28A EXPD: SOGmA RECV: 068A XOR: #06‘ 


SEQ 0066 
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_ PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


SEQ 0067 


262 EVEN 
2628 "SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
s¢ 
2625 : 
2626 sROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
2627 , ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
o 
2629 ' RO - NUMBER OF BYTES IN BUFFER 
‘ 
s$3 sIMPLICIT INPUTS: 
. a 
263 EXPMSG - EXPECTED MESSAGE BUFFER 
2634 RECMSG - RECEIVED MESSAGE BUFFER 
2635 
2636 015202 ec’ 
2637 015202 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
2638 015206 010005 MOV RO,RS :SAVE NUMBER OF BYTES 
2639 015210 005037 002312 CLR PRMNO LINIT ERROR COUNT 
2640 015214 C05004 CLR R4 sNUMBER OF THE CURRENT BYTE 
2641 015216 012701 002314 MOV @EXPMSG,.R1 :GET EXPD BUFFER ADDRESS 
2642 015222 012702 002460 MOV @RECHSG.R2 ;GET RECV BUFFER ADDRESS 
2643 015226 111100 208: Move (R ;GET EXPD BYTE 
2644 015230 042700 177400 BIC ortedty> RO ;CLEAR UPPER BYTE 
2645 015234 110037 015550 MOVE RO, PRBEXP ;SAVE FOR ERROR REPORT 
2646 015240 111203 MOVB (R2).R3 ;GET RECV BYTE 
2647 015242 042703 177400 BIC 0tC<377>,R3 ;CLEAR UPPER BYTE 
2648 015246 110337 015552 MOVE R3,PRBREC ;FOR ERROR REPORT 
2649 015252 XOR RO.R3 :XOR EXPD/RECV 
015262 2122 CMPB Os (Ri) +, (R2)> sEXPD = REC 
2551 015264 001431 6EQ :0R IF 
2652 015266 005237 002312 INC PRMNO ; UPDATE YERROR COUNT 
2653 015272 023727 002312 000010 CMP PRMNO, 08. ‘PRINTED 8? 
2654 015300 101023 BHI 308 gor YES 
2655 015302 278: PRINTX @PRBMSG,R4,PRBEX PROREC. R3 
015302 010346 MOV R3.-(SP) 
015304 013746 015552 MOV PRBREC, -( SP) 
015310 013746 015550 MOV PRBEXP, -(SP) 
015314 010446 MOV R4, -(SP) 
015316 012746 015416 MOV @PRBMSG, -( SP) 
015322 012746 000005 MOV #5, -(SP) 
015326 010600 MOV SP; RO 
015330 104415 TRAP CSPNTX 
015332 062706 000014 ADO 614, SP 
2656 015336 FORCEXIT 50% ;880 
2657 015346 000404 BR 35% ;880 
2658 015350 308: 
2659 015350 FORCERROR 27%,NOTSSR ;980 
2660 015360 35%: ;880 
2661 015360 005204 INC R4 ;NUMBER OF THE NEXT 
2662 015362 020405 CMP R4,RS ;00NE ALL YET? 
2663 015364 902001 BGE 508 :BR IF YES 
2664 015366 00071 BR 208 00 HER 
2665 015370 50$: PRINTX @PRBTOT.PRMNO ;PRINT TOTAL ERROR COUNT 
015370 013746 00231 MOV PRMNO, -(SP) 
015374 012746 01550 MOV @PRBTOT, -(SP) 
015400 012746 000002 MOV @2,-(SP) 
015404 010600 MOV SP .RO 


- +--+ 


TSVS - GLOBAL AREAS 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


01 104415 TRAP 
015410 062706 000006 AOD 
2666 015414 000207 RTS 
015416 045 116 045 PRBMSG: .ASCIZ 
2669 0155035 045 116 045 PRBTOT: oy 
2671 015550 000000 PRBEXP: .WORD 
s67¢ 015552 000000 PRBREC: .WORD 
267 . SBTTL 
2674 3° 
2675 3 
2676 sPRINT ROUTINE 
2677 t 
2678 s INPUTS: 
2679 
2680 3 R1 
26861 3 R2 
2682 3 
2683 s- 
2684 
2685 015554 BGNMSG 
015554 EXPREC:: 
2686 015554 004737 010020 JSR 
2687 015560 ENOMSG 
015560 110017: 
015560 104423 TRAP 
2688 . SBTTL 
2689 i¢ 
2690 8 
2691 sPRINT ROUTINE 
2692 3 
2693 3 
2694 INPUTS: 
2695 $ 
2696 3 R1 
2697 3 R2 
2698 3 
2699 s- 
2700 
2701 015562 BGNMSG 
015562 EXPBREC: : 
2702 015562 004737 007670 JSR 
2703 015566 ENOMSG 
015566 110020: 
015566 104423 TRAP 
2704 
2705 
2706 . SBTTL 
2707 3* 
2708 3 
2709 ;PRINT ROUTINE 
2710 3 
2711 INPUTS: 
2712 8 


2713 : R4 
2714 : 


eee ee 
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CSPNTX 
PC’ ;RETURN 
‘SNA BYTE OND2SA_ EXPD: SO3SA RECV: BOSSA XOR: s03° 


EXPD: 
‘NSA NUMBER OF BYTES IN ERROR = sD2 
0 sEXPO 
0 RECV 
EXPREC - PRINT EXPD/RECV WORD DATA 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 


EXPREC 


PC ,PRIXOR sPRINT THE DATA 


C$MSG 
EXPBREC - PRINT EXPD/RECV BYTE DATA 


TO DISPLAY BYTE EXPD/RECV DATA 


RECEIVED DATA BYTE 
EXPECTED DATA BYTE 


EXPBREC 

PC ,PRIBXOR sPRINT THE DATA 
C$MSG 

RAMERR - PRINT RAM AND PACKET DATA 


TO DISPLAY RAM/PACKET DATA 


POINTER TO COMMAND PACKET 


SEQ 0068 





TSV3S - GLOBAL AREAS 


Sr zere 
ied 004737 014056 


015574 
015574 104423 


015576 


6 
015576 004737 010352 
015602 004737 014056 
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- PRINT RAM AND PACKET DATA 


sIMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 
IF RAMSIZ=0 THEN DEFAULT TO 8. 
IMPLICIT OUTPUTS: 


RAMSIZ SET TO 0 


RAMERR 
PC ,PRAMPKT sPRINT RAM/PACKET DATA 


J 

ENOMSG 

L10021: 
TRAP C$MSG 


-SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


7¢ 

;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
;INPUTS: 

: Ra POINTER TO COMMAND PACKET 
}IMPLICIT INPUTS: 

: RAMDATA DATA AS READ FROM THE RAM 
; RAMSIZ NUMBER OF BYTES IN PACKET 
- IF RAMSIZ=0 THEN DEFAULT TO 8. 
; ERRHI HIGH ORDER TEST ADDRESS 

; ERRLO LOW ORDER TEST ADDRESS 
}IMPLICIT OUTPUTS: 

3 

3 

$ 


RAMSIZ SET T0 0 


BGNMSG RAMTADD 


RAMTADD: : 
JSR PC ,PRITADD sPRINT TEST ADDRESS 
PC ,PRAMPKT sPRINT RAM/PACKET DATA 


ENOM 
110022: 
TRAP C$MSG 


-SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 


2¢ 
;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


3 

: INPUTS: 

: R1 RECEIVED DATA 
3 Re EXPECTED DATA 
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SEQ 0070 
RAMEXP - PRINT RAM EXPD/RECV DATA 
| 
2766 3 R4 CONTROLLER RAM ADDRESS 
2767 s- 
2768 
j 2769 015610 8 RAME XP 
| 015610 RAMEXP: : 
2770 015610 042701 177400 BIC @tC<377>,R1 sSAVE EXPD RAM DATA BYTE 
2771 015614 042702 177400 BIC @tC<377>,R2 s;SAVE EXPD RAM DATA BYTE 
2772 015620 004737 010144 JSR PC, ,PRIRAM sPRINT T RAM ADDRESS 
2773 015624 004737 010020 JSR PC ,PRIXOR ;PRINT THE DATA 
2774 015630 ENOMSG 
015630 L10023: 
2775 015630 104423 TRAP C$MSG 
gris .SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 
3¢ 
2778 3 
2779 sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
sre sAND TIMER A,B HEADER MESSAGE 
3 
2782 s INPUTS: 
2783 3 
2784 3 Ri RECEIVED DATA 
2785 3 Re EXPECTED DATA 
2786 s- 
2787 
2788 015632 BGNMSG TIMEXP 
015632 TIMEXP: : 
2789 015632 PRINTX #@TIMSGO ;PRINT HEADER 
015632 012746 015660 MOV @TIMSGO, -( SP) 
015636 012746 000001 MOV #1,-(SP) 
015642 010600 MOV SP ,RO 
015644 104415 TRAP CSPNTX 
015646 062706 000004 ADD @4,SP 
2790 015652 004737 010020 JSR PC,PRIXOR ;PrP INT THE DATA 
2791 015656 ENOMSG 
015656 L10024: 
2792 015656 104423 TRAP C$MSG 
As 015660 045 116 045 "Pee .ASCIZ ‘sNSA TIMER A STATUS IS IN BiT 38NSA TIMER B STATUS IS IN BIT 2' 
sree -SBTTL BADSSR - PRINT TSSR ERRORS CW DATA TRANSFERS 
2797 ze 
2798 3 
the sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
800 ; 
2801 s INPUTS: 
2802 3 
2803 3 R1 CONTENTS OF T 
2804 3 R2 DATA WRITTEN és Aarts) 
2605 3 
2806 s- 
2807 
2808 015760 BGNMSG BADSSR 
015760 BADSSR: : ’ 
2809 015760 010246 MOV -(SP) sSAVE DATA TRANSFERRED 
2610 015762 042702 177400 BIC Re +7850. R2 sGET JUST ONE BYTE 





» 
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j 
i 


_ BADSSR - PRINT 


2611 015766 
015766 


16 
28615 016020 
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TSSR ERRORS ON DATA TRANSFERS 


016020 
000002 


116 


110025: 
045 XFERASC: 


PRINTB 
Vv 


@XFERASC ,R2 


2,-(SP) 

OXFERASC, -(SP) 

SP RO 

CSPNTB 

06 ,SP 

(SP)+,R2 ;RESTORE R2 
PC,PRITSSR sDECODE TSSR CONTENTS 


C$MSG 
-ASCIZ ‘NSA Date Transferred = #03' 


SEQ 0071 
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| GLOBAL SUBROUTINES SECTION 
2617 -SBTTL GLOBAL SUBROUTINES SECTION 


SEQ 0072 


i 
' 
| 
ie PSO PDE GSTS GEITAD NE Heo | 
5e08 ) .SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
oe2s a 
ooo) }ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 


2628 sBY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
629 sTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
2830 ee SHOULD BE TREATED AS DEVICE FATAL ERRORS. 


2832 LINPUTS: 
2834 ; RS ADDRESS OF FIRST REGISTER 
2836 }OUTPUTS: 
; RO CONTENTS OF TSSR, IF ERROR 
CARRY SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 
CALLING SEQUENCE: 


MOV @ADDRESS ,RS 
JSR PC, SOF INIT 
CONTI 


ERROF sREPORT FATAL ERROR 


fw 
SeSSs 


2849 a 


2850 

2851 016054 SOFINIT: : 

2852 016054 SAVREG SAVE THE REGISTERS 
2853 016060 012765 000000 000002 MOV @0,TSSRCRS) ue THE INIT 

2854 016066 004737 016330 JSR PC ,WAITF WAIT FOR SSR 

28655 016072 016500 000002 MOV TSSRCRS),RO iGET THE TSSR REGISTER 
2656 010004 MOV 0,R4 gion CONTENTS 

2857 016100 042704 176277 BIC @tC<HIADDR!OFL>, 

2658 016104 052704 002200 BIS @SSR!NBA,R4 sR4 HAS EXPECTED CONTENTS 
2859 016110 020400 CMP R4,RO sONLY EXPECTED BITS SET ? 
2860 016112 001402 BEQ S$ iBRANCH IF OKAY 

2661 016114 000241 CLC s;CLEAR THE CARRY FOR ERROR 
2862 tet ess 000401 BR 10$ 3GO_ TO EXIT 


00026 : I 
2864 016122 000207 10%: RTS PC sRETURN TO CALLER 





| TSV3 - GLOBAL AREAS MACRO YOS.02 Tuesday 17-Sep-85 11:22 Page 57 —e ies 
| CHKAMB «= CHECK TSSR FOR AMBIGUITY 


2866 \SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY | 
! 
r++] . 
2870 iTHIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER | 
2871 iFOR AMBIGUITY 
3872 | 
2873 }INPUT: ‘ 
2874 3 
2875 RO CONTENTS OF TSSR 
5876 
2877 }OUTPUT: 
2878 ; 
2879 : RO CONTENTS OF TSSR 
880 Q 
2881 : CARRY SET - NO AMBIGUITY 
2882 : CLR - AMBIGUOUS CONTENTS 
2683 3 
2884 - 
2885 
2886 016124 CHKAMB : 
5887 016124 SAVREG :SAVE THE GENERAL REGISTERS 
3888 016130 010004 MOV. RO,R4 ‘CONTENTS OF TSSR 
5889 016132 032700 100000 BIT @SC.RO iTS BIT 15 SET ? 
5890 016136 001004 BNE + BRANCH IF YES 
5891 016140 032700 174077 BIT @°C<NBA!OFL !SSR!HIADOR: Ro ANY OTHER BITS SET ? 
2892 016144 001023 BNE MUST BE AN ERROR 
2893 016146 000424 BR ass RETURN WITH SUCCESS 
5894 016150 032700 000200 S$: BIT @5SR,RO iIS READY BIT SET ? 
5895 016154 001011 BNE 108 i@RANCH IF READY BIT IS SET. 
16156 032700 000040 BIT @BITS.RO iIS FATAL ERROR BIT SET ? 
2897 016162 001414 BEQ 408 ERROR IF NOT 
2898 016164 042704 177761 BIC OfCTERCLS.R4 {CLEAR ALL BUT TERMINATION CODE 
2899 016170 020427 000016 CHP «RA 016 }ALL THREE BITS MUST BE SET 
5900 016174 001007 BNE 408 ERROR IF NOT SET 
5901 016176 000410 BR 45$ OK IF ALL ARE SET 
3902 016200 032700 000040 10$: BIT ¢B1TS,RO iIS FATAL ERROR BIT SET ? 
5903 016204 001405 BEQ 42s«458 ERROR IF BIT IS SET WITH SSR 
5904 016206 032700 000006 BIT @BIT2!BIT1,RO IS THIS A FUNCTION REJECT 
5905 016212 001002 BNE 458 i6R, IF TSSR IS OK 
5906 016214 000241 40s:  cLC AMBIGUOUS CONTENTS 
5907 016216 000401 BR 50s 
3908 016220 000261 45$: SEC ;SHOW SUCCESS - NO AMBIGUITY 


2909 016222 000207 50%; RTS PC sRETURN TO CALLER 
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SEQ 0074 
| ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS 
2911 .SCTTL ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS | 
5918 } DEFAULT DISPLAY INTERRUPT HANDLERS. 
2914 ; IF OISPLAY TIME-OUT, REPORT DEV AND ABORT PASS. 
2915 | OTHERUISE. SAVE DPU REGISTERS AND DISMISS. 
3 
3917 
2918 ; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 
29 900200 TOKCKIN=BIT7 + DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 
2921 000001 IOKSTP=B1T0 ; EXPECT “STOP” INTERRUPT. 
2928 LINTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 
5924 016224 000 INTHASK: 
2925 INTERRUPT FLAG :- SAYS WE GOT ONE CIF POSITIVE) 
2926 016225 000 FLAG: "BYTE 0 
2928 SAVED INTERRUPT VECTOR: 
5929 016226 00000 NTVEC: .WORD 0 
39 SAVE” CPU PC 
2931 016230 000000 INTCPC: .WORD 0 
2933 SUBROUTINE TO ENABLE INTERRUPTS: 
5934 016232 010046 NAINT: MOV RO. -(SP) ;SAVE RO 
3935 016234 013700 002202 MOV IVE, RO GET POINTER TO VECTORS 
5936 016240 012720 016276 MOV —s- BINT. CRO)» SET UP INTERRUPT VECTOR 
2937 016244 012720 000340 MOV @PRIO7, (RO)+ 
2938 O1 012600 MOV SP)+,R :RESTORE RO 
3939 016252 011646 MOV (SP), -(SP) 
3940 016254 012766 000000 000002 MOV v2t SET CPU TO LEVEL 0 
2941 016262 000002 RTI 
2943 ;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
3944 016264 011646 OSBINT: MOV .-(SP) 
5945 016266 012766 000340 000002 MOV —«- @PRIO7, 2(SP) 
5946 016274 000002 RTI 
2947 “SBTTL INTR  - INTERRUPT HANDLERS 
2949 016276 inte,, PONS. INTR {DEFINE INTERRUPT ENTRY 
2950 016276 012737 000001 002216 °F MOVs #1, INTRECV SET FLAG TO SHOW INTERRUPT RECEIVED 
3951 016304 105037 016225 CLR8 —sINTFLAG CLEAR FLAG TO SAY WE GOT INTERRUPT 
5952 016310 132737 000001 016224 BITB  @IOKSTP,INTMASK ;EXPECTING STOP INTERRUPT? 
5953 016316 001003 BNE is ;8R IF YE 
2954 016520 152737 000001 016225 BISB § @IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 
ose SAVE REGISTERS, MSG BUFFER, ETC. 
3957 016326 it: 
2958 016326 ENDSRV 
016326 10026: 


016326 000002 RTI 
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SEQ 0075 
WAITF - WAIT FOR SUBSYSTEM READY 
2960 .SBTTL WAITF - WAIT FOR SUBSYSTEM READY | 
e962 } SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
296 i 
eae s INPUTS: 
a+ $ : i) ADDRESS OF FIRST DEVICE REGISTER 
2968 sOUTPUTS: 
2969 : 
2970 ' RO CONTENTS OF LAST TSSR READ 
2971 ; CARRY SET - READY B 
$378 ’ CLR - TIMEOUT WAITING FOR READY 
2974 016330 000401 WAITF: : 18 sNOP WHEN SUPER FIXED 
2975 016332 BREAK ; DO A SUPVSR BREAK FIRST. 
016332 104422 TRAP 
2976 016334 012746 011000 18: MOV #11000, -(SP) :25-APRIL-83 REV B - 1100 MSEC TIMER 
2977 016 €16500 000002 28: MOV TSSRCRS),RO sREAD THE TSSR REGISTER 
2978 016344 105700 TSTB =: RO sTEST FOR READY BIT SET 
2980 016346 100420 BMI 3% : EXIT ON STOP FLAG. 
016350 DELAY i ; WAIT 100 USEC 
016350 012727 000001 MOV 01,(PC)+ 
016356 013727 002116 MOV LSOLY,(PC)+ 
016364 005367 177772 DEC -6(PC) 
016370 001375 BNE .-4 
016372 005367 177756 DEC -22(PC) 
016376 001367 BNE .-20 
01 005316 DEC (sP) sREDUCE DELAY COUNT 
2983 016402 001356 BNE 23 ;RETRY UNTIL TIMER EXPIRES 
01 000241 cLc :; € = 0, CONT ROLL ER STILL RUNNING... 
01 000401 BR 4s P -UP AFTER 300 MSEC. 
2986 016410 000261 3% SEC : C= 1, CONTROLLER IS STOPPED. 
2987 016412 005326 4s: DEC (SP )» RESTORE STACK WITHOUT CHANGING CARRY BIT 
2988 016414 000207 RTS PC 
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rt “ee SEQ 0076 


: CHKTSSR - CHECK TSSR FOR READY 


3 


2991 


NT 


| 
16416 004737 016330 PC ,WAITF ;WAIT FOR READY 
16422 103014 Bcc 20% ;BRANCH IF TIME OUT 
16426 004737 016124 JSR PC, CHKAMB 3TSSR AMBIGOUS? 
016430 103006 Bcc 10% ;0R IF YES 
016432 ©32700 100000 BIT @SC.RO sSPECIAL CONDITION SET? 
3009 016436 001405 BEQ 15$ 38R IF NO 
3010 016440 032700 074000 BIT @<SCE!BIE!RMRINXM>,RO  ;ANY ERROR BITS SET? 
3011 016444 001402 BEQ 158 :8R IF NO 
016446 000241 ics: CLC sSET FAILURE 
3013 016450 000401 BR 208 
3014 016452 000261 15%: SEC 161 SUCCESS 
3015 016454 000207 20%: ats PC RETURN TO CALLER 
$016 “SBTTL XNXM © - _ CHECK FOR NONEXISTENT MEMORY 
3018 } ROUTINE TO TEST FOR A NEXM IN THe E RANGE (R1) THRU (R2). 
3019 : ON RETURN, IF "C“ = 1, (R1) = NEXM ADDRESS. 
3020 : “C" = 0. ALL ADDRESSES OK. 
3 
3022 ;CALL: MOV ADR1,R1 
302 : MOV ADR2.R2 
3024 : JSR PC,NXM 
3025 : RETURN ;TEST “C* AND PROCEED. 
3026 016456 012737 016510 000004 XNXM: MOV 624,904 s SET BUSERR VECTOR. 
3027 016464 012737 000200 000006 MOV ePRiO4, 
3028 016472 CLR R3 FLAG. 
3029 016474 005711 1%: TST (RL) iTEST THE ADDRESS(ES). 
3030 sIF ANY TRAP, CONTINUE AT 2%. 
3031 016476 0201 R1,R2 sOTHERWISE, CONTINUE 
3032 016500 001407 BEQ 33 38R IF FINISHED (NO NEXM’S). 
3033 016502 062701 000002 @2.R1 3SET NEXT "eel 
3034 016506 000772 BR 18 3...AND CONTINUE. 
3035 016510 00510 2s: COM R3 :GOT ONE, SET FLAG... 
3036 016512 012716 016520 MOV #3%,(SP) 
3037 016516 RTI 3...AND DISMISS INTERRUPT. 
3038 016520 38: CLRVEC 04 3...AND GIVE BACK THE VECTOR. 
16520 012700 000004 MOV 04,RO 
016524 104436 TRAP C8CVEC 
3039 016526 005703 TST R3 sDID WE CATCH ONE 77 
3040 016530 001401 BEQ 04 3NO, “C” © 0, SKIP NEXT. 
3041 016532 000261 C ives, "C* = i, (RL) = NEXM ADOR. 
3042 016534 000207 RTS PC 





-SBTTL CHKTSSR - CHECK TSSR FOR READY 


+ 
i THIS ROUTINE WAITS FOR READY IN THE TSSR 
sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


a 

}INPUT: 

: RS ADDRESS OF CSR REGISTERS 

;OUTPUT: 

: RO CONTENTS OF TSSR 

; CARRY SET - OKAY 

; CLR - NOT READY AMBIGUOUS, OR SC SET 
eHKTSSR: 


I 
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TSTLOOP - CHECK ITERATION COUNT 


SEQ 0077 


-SBTTL TSTLOOP - CHECK ITERATION COUNT 
; SUBROUTINE TO EXECUTE TEST ITERATIONS. 
s EXIT WITH “C* SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
s LOOP COUNTER IS SET BY “BEGIN.TEST” MACRO. 
‘ 
5 


CALL: LOOPTO ARG 


3333: 


016536 TSTLOOP: : 
016586 005737 002162 ist —sNOITS ; ITERATIONS INHIBITED? 
$054 016542 001006 BNE Osis ; YES. 
016544 005737 002176 1st  @vP + NO. 
3056 016550 3 eI sis {LOOPS DISALLOWED IN QUICK PASS. 
016552 005337 002210 DEC —«LOOPCNT ; BUMP LOOP COUNTER. 
3058 016556 001002 BNE oa 
3059 016560 000241 1: cLe ;LOOP DISALLOWED, OR DONE. 
3060 016562 000401 6R 38 
3061 016564 000261 28: SEC :LOOP ENABLED. 
$062 016566 00207 3: RTS —s- PC 
3064 \SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
Ea & 
3066 1 PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
3067 } INCREMENT “TESTK” TO INDICATE THE NUMBER OF TESTS 
3068 | IN THE CURRENT RUM SE 
3069 t CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
3071 }INPUT: 
sora ; RO POINTER TO TEST ID ASCIZ STRING 
3075 ;OUTPUT: 
3077 ; RS ADDRESS OF FIRST DEVICE REGISTER 
3079 }IMPLICIT OUTPUTS: 
3081 ; TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
3083 SIDE EFFECTS: 
3085 ; INTERRUPT LEVEL IS RASIED TO LEVEL OF 
3086 ; THE DEVICE UNDER TEST 
3087 : 
3088 3- 
3089 
3090 016570 TSTSETUP: : | 
1 016570 .010046 MOV. —s- RO, -( SP) SAVE THE TEST ID MESSAGE 
$092 016572 005037 003146 CLR — SIFLAG } CLEAR "SOFT INIT" FLAG 
3093 016576 005037 0170 CLR —s« ERK ; CLEAR LOCAL c 
3094 016602 005037 005766 CLR —s EXTA } CLEAR ERROR EXTENSION FLAG. 
3095 016606 105037 016224 CLR8 = INTHASK ; CLEAR INTERRUPT CHECK ERROR) 
3096 016612 013700 002174 MOV —sUNITN. RO GET THE UNIT 
3097 016616 006300 ASL RO 3... AND MAKE IT A WORD OFFSET. 
3096 016620 005737 003106 TSt _ NODEV : 670 STARTUP FINO THe DEVICE? 
3099 016624 001430 BeatiéAS BR IF YES 
3100 016626 10001¢ ePLCi‘é‘SSS ; OR IF NOT IDLE 
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TSTSETUP - PRINT TEST NAME AND INI’ <RROR COUNTS 
3101 016630 052760 160000 003170 ers #160000, ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
3102 016636 4 NXA,NXRERR ; NO DEVICE MERE -- PRINT IT 
016636 104455 sEROF 
016640 bo0001 y i 
gisess usTse ‘WORD NKR 
01 732 ‘ RARERR 
103 016646 00040 BR 28 
104 016650 052760 160001 003170 3%: ers @160001 , ERTABL(RO) s FLAC ERROR IN THE ERROR TABLE 
105 016636 ERROF a NOINIT ) DEVICE NOT IDLE 
016060 4 WORD ci 
Sisees 90000 ‘Von 
3 0 012737 177777 003104 2%: nov @-1,0UFLG : DROP THE UNIT 
107 016674 p00u Cutty 
016674 013700 002174 ROV UNITN, RO 
016 104451 TRAF  CEDODU 
3108 016702 DOCL s ABORT THE PASS 
016 a TRAP ¢0CLN 
tt 016704 000423 BR 3 
111 016706 4: RFLAGS : GET THE OPERATOR FLAGS. 
016706 104421 TRAP CORFLA 
016710 032700 001000 IT OPNT RO s PRINT THE TEST NUMBERS? 
3115 016714 001412 Q 1 : BR IF NO 
3114 016716 011600 HOV SP).RO 1GET THE ID MESSAGE 
016 PRINTF @TNAM,RO sDISPLAY THE TEST ID 
016 010046 MOV RO, -(SP) 
016722 012746 016764 HOV OTNAM, -(SP) 
016 012746 KO 2. -($P) 
016 01 HOV RO 
016734 104417 TRAP CSPNTF 
016736 706 000006 ADO & - 
3116 016742 37 002206 18: INC Tst : BUMP TEST COUNTER. 
3117 016746 SETPRI IPRI sPRIORITY THAT OF DEVICE 
016746 013700 002204 HOV IPRI,RO 
016 104441 TRAP $SPRI 
118 016 005726 S$: TST SP) sFIX UP THE STACK 
119 016 013705 002200 nov CSRADOR RS s ADORESS OF TSV REGISTERS ON UNIBUS 
120 016762 000207 RTS 
016764 045 123 045 TNAM: .ASCIZ ‘SSSTSA Test’ 
‘3 he TSTEND - PRINT ERRORS RECEIVED 
1 AT END OF EACH Test THE NUMBER OF ERRORS RECEIVED 
a ; IF NORMAL ERROR REPORTING. IS OISABLED (FLA: IER). 
sll RFLAGS RO 
ere BY 6s Rov elle 
917008 020000 IT .@IER 
001412 @ ua : OR IF “IER” NOT SET. 
Sirono INTE #€SUN,ERRK 3 PRINT ERROR . 
a 7010 013746 017036 nov ERRK, -(SP) 
017014 012746 017040 MOV GE SUM, -( SP) 
oi 7038 ° 46 000002 HOV 2. gis” 
Stress 10081? TRAP CePntTF 





SEQ 0078 
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TSTEND - PRINT ERRORS RECEIVED 


017030 062706 000006 ADD 06, SP 
$132 017034 000207 18: RTS PC 
| 3134 017036 000000 ERRK: 0 ; LOCAL ERROR COUNT. 
| 3135 017040 045 101 040 ESUM:  .ASCIZ /#A sDSA ERRORS/ 
| $23 017057 105 122 122 EMAXOU: :ASCIZ /ERROR LIMIT REACHED -- DROPPING UNIT/ 





SEQ 0079 


TSV3S - GLOBAL AREAS 
INCERK 


001013 
012737 
104455 
000004 
017057 
000000 
013700 
104451 
104444 


012600 
3172 017260 000207 
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- INCREMENT LOCAL ERROR COUNT 


177777 


002174 


002164 


- INCREMENT LOCAL ERROR COUNT 


7 
; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


.SBTTL INCERK 

INCERK: INC ERRK 
MOV -(SP) 
MOV UNETN RO 
ASL R 
ADD GERTABL ,RO 
INC (RO) 
BIT 07777, (RO) 
BNE 18 
DEC CRO) 

1s: MOV (SP )+,RO 
RTS PC 

CKEMAX: MOV -(SP) 
MOV UNiTN: RO 
ASL RO 
MOV ERTABL(RO),RO 
BIC #170000 ,RO 
CMP RO, GERRMAX 
BHIS 18 
CMP ERRK , LERRMAX 
BLO 

18: RFLAGS 
TRAP  C$RFLA 
BIT 6IDU,RO 
BNE $ 
MOV @-1,0UFL 
ERROF 4,EMAXDU 
TRAP CSEROF 
.WORD 4 
"WORD EMAXDU 
"WORD 0 
BODU  —sUNITN 
MOV UNITN, RO 
TRAP  C#D00U 
DOCLN 
TRAP  C$DCLN 

28: MOV CSP )+,RO 
RTS PC 


INCREMENT LOCAL ERROR COUNT 
SAVE RO 
= UNIT NUMBER, 

AND MAKE IT A WORD OFFSET. 

© GETS ADORESS OF ERROR TABLE ENTRY. 
INCREMENT THE DEVICE ERROR COUNT 
OID WE OVERFLOW THE FIELD? 
BR IF NO. 


MS BACK IT UP TO 7777. 
RETURN TO CALLER. 


SAVE RO 
GET UNIT NUMBER 
AND MAKE IT A WORD OFFSET 
GET ERROR TABLE ENTRY 
EXTRACT ERROR COUNT FIELD 
‘a ae LIMIT EXCEEDED FOR THIS UNIT? 
as $8 LOCAL LIMIT EXCEEDED FOR THIS TEST? 


BR IF 
GET OPERATOR FLAGS 
Is ot INHIBITED? 


BR IF YES 
NO -- DROP THE UNIT 


RESTORE RO 
RETURN TO CALLER 


SEQ 0080 


a 
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CKDROP - CHECK IF UNIT SHOULD BE DROPPED 


ee 444 032700 000040 


011600 
017306 012737 177777 003104 
017314 013700 002174 
320 


VUUUWUU WUUUuUU 
Pree he pee hope be pepe 


BPaKH Sserteas 
o 
coal 
~ 
~ 
~ 
& 


3196 017330 004737 016054 


403 
017344 012737 000001 177572 
000207 


cece 


SOSEEK 
USurVrd 
2 
g 


SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
7 
} CHECK IF UNIT SHOULD BE DROPPED 
éxDROP: MOV RO, -(SP) 
ORCERR 


FORCERROR 1$,NOTSSR 
RFLAGS RO 
TRAP CSRFLA 
BIT + mean 
MOV (SP),RO 
MOV @-1,0UFLG 
UNITN 
Vv UNITN,RO 
TRAP 
OOCLN ;ABORT THE PASS 
TRAP CSDOCLN 
i $ H MOV ¢ SP ) +. RO 
RTS PC 


-SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
; SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM. 


tonr 1G: 
JSR «PC, SOFINIT 


RTS 
“SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
} SUBROUTINE - ENABLE MEM MGT. 
KTON: TST KTFLG ; GOT KT? 
BEQ 1s ; NO. 
MOV #1, SRO ; YES. ENABLE KT11. 
1s: RTS PC 
} SUBROUTINE - DISABLE MEM MGT. 
KTOFF: TST KTFLG ; GOT KT11? 
BEQ is ; NO. 
NOP 
NOP 
MOV 00,SRO ; DISABLE KT. 
18: RTS PC 


SEQ 0081 
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SETMAP - SETUP PAR6 MAPPING 


S 
36 017376 
tH 017376 


3270 
3271 017502 
3272 017502 
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003124 


000177 
006000 


172352 
160000 
120000 


3273 017506 004737 017354 


- SBTTL 


3¢ 


SETMAP - SETUP PAR6 MAPPING 


iTHIS ROUTINE SETS UP KERNEL PAR6 TP_HANDLE 


sAN 18 BIT 


sIS RETURNED BIASED TO PAR6 


LINPUTS: 


RO 
CARRY 


SAVREG 


108: cLc 


~ 
uw 
ee 

+ DOW 
+ 
w 


4 


INPUTS: 


FREE 
KTFLG 


OUTPUTS: 


HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 


ADDRESS. THE OFFSET INTO THE PAGE 


OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 


CLR IF ERROR 


RO = BACKGROUND PATTERN 


sSAVE R1-R4 UNTIL NEXT RETURN 
sSYSTEM HAVE ABOVE 28K? 


;SAVE LOW ORDER BITS 


sCONVERT WORD ADDRESS TO 32W BLOCKS 
sMAKE IT DOUBLE PRECISION 


sALINE FOR LOWER 4K BOUNDARY 
* — EXISTING MEMORY? 
; 

sSETUP MAPPING REGISTER PARS 
; SETUP yo we ee IN PAGE 
sAD0 IN PARS BIAS 

sRETURN IN RO 

sSET SUCCESS 


: SET FAILURE 


P 
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
FILL MEMORY WITH A BACKGROUND PATTERN 


= FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
= SET TO HIGHEST MEMORY LOCATION IF > 286K. 


PC ,.KTOFF 


SAVE “-o UNTIL NEXT RETURN 
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_ FILLMEM - FILL 
3274 017512 


3576 917520 
3277 017524 
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MEMORY WITH BACKGROUND PATTERN 


017376 
140000 
020000 
000200 
172352 
003136 
177572 
177761 
000016 
003140 


172352 


000020 
017622 
017354 


172352 
006000 


007600 


172516 


108%: 


35%: 


s 
PC ,.KTON 
R 


0,R4 
#177761,R4 
#16,R4 
S0$ 

T238 

45% 
BOKIPARS , #7600 
40% 

453 

#20,SR3 

PC ,.KTOFF 

PC 





sCOPY TEST PATTERN 


iGET FIRST FRE 


1338 4, 
sSTORE A 

sDONE 

iBR IF NO 

3s GOT KT? 

s NO. GET OUT 
; YES. ENABL 


PACE BELOW 26K. 


Ping MEMORY IN IN FREE SPACE? 


E KT. 
sHIGH ORDER ADORESS STAR 


sGET >28K START ADDRESS CN 32W BLOCKS) 


sCLEAR 


Cc BIT 
oc meevent BLOCKS TO WORDS 


sMAKE IT 


DOUBLE PRECISION 


sSETUP PAR6 MAPPING REGISTER 


sSTORE TEST PATTERN IN Sta ADORE 
PARS MAPPING AREA? 


s6R IF NO 
iBACKUP INTO PARS MAPPING BEGIN 


sEND OF 


sPOINT TO NEXT 4K BLOCK >28K. 
OF MEMORY? 


sEND 
3;8R IF YES 


EP GOING 
sGET SRO CONTENTS 
sCLEAR ALL BUT PAGE NUMBER 


sSEE IF PAGE 7 
sEXIT IF THERE 
311/238? 
3NO KEEP 


GOING 
sREACHED 18 BITS? 


sYES 
3NO KEEP 


GOING 
sSET 22 BIT RELOCATION 
sKEEP ae ae aes ETc. 


s OISABLE 


SEQ 0083 
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- COMPARE MEMORY TO BACKGROUND PATTERN 


+ COMPARE MEMORY WITH A BACKGROUND PATTERN 


= FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
= SET TO HIGHEST MEMORY LOCATION IF > 28K. 


- SET IF NO ERROR 


ERROR +o ADDRESS 
OW ADDRES 


eee 
m 
x 
v 
m 
oO 
+ 
m 
o 
o 
>> 
= 
> 


RECEIVED DATA 


CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
3314 .SBTTL CMPMEM 
3315 
3316 
3317 3 
3318 ; INPUTS: 
3319 F 
3320 ’ RO = BACKGROUND PATTERN 
3321 ; FREE 
3322 ' KTFLG 
3323 3 
3324 ; OUTPUTS: 
3325 3 
3326 , CARRY 
3327 , CARRY - CLR IF ERROR 
3328 : 
3329 ; IMPLICIT OUTPUTS: 
3330 3 
3331 ; ERRHI 
3332 , ERRLO RROR L 
3333 : EXPD 
3334 ; RECV 
3335 3- 
3336 017740 CMPMEM : 
3337 017740 SAVREG 
3338 017744 010003 MOV RO.R3 
3339 017746 004737 017354 JSR PC‘ KTOFF 
3340 017752 013701 003116 MOV FREE,R1 
3341 017756 013702 003120 MOV FRESIZ,R2 
3342 017762 020311 10%: CMP R3,(R1) 
3343 017764 001411 BEQ 15% 
3344 017766 610137 002232 MOV R1,ERRLO 
3345 017772 22 CLR ERRHI 
3346 017776 010337 002224 MOV R3,EXPD 
3347 020002 011137 002226 MOV (Ri), RECV 
3348 BR 508 
3349 020010 005721 15%: TST CR1)+ 
3350 020012 005302 DEC R2 
3351 020014 003 BGT 10% 
3352 020016 005737 003124 TST KTFLG 
3353 020022 001472 BEQ 55% 
3354 020024 004737 017336 JSR PC ,KTON 
3355 020030 CLR 
3356 020032 013701 003144 MOV PST32W,R1 
3357 .REPT 6 
3358 ROL R1 
3359 ROL RO 
3360 . ENOR 
3361 020066 042701 0v0177 BIC @177,R1 
3362 020072 010046 MOV RO, -(SP) 
3363 020074 010146 MOV R1.-(SP) 
3364 020076 737 017376 JSR PC: SETMAP 
3365 020102 010004 MOV RO.R4 
3366 020104 012601 MOV (SP)+,R1 
3367 020106 012600 MOV (SP)+.RO 
3368 020110 020314 30$: CMP R3,(R4) 
3369 020112 001411 BEQ 323 
3370 020114 010037 002230 MOV RO, ERRHI 


sSAVE R1-RS UNTIL NEXT RETURN 
sCOPY TEST PATTERN 
;OISABL LE KT. 
:GET FIRST FREE LOCATION 
iSIZE OF FREE SPACE BELOW 28K. 
i REE a LOCATION EQUAL TO EXPD? 
; 
sSAVE_ADORESS IN ERROR 
ADDRESS 


3NO HIGH 
sSAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 


; 

sPOINT TO NEXT ADDRESS 

sDONE ALL MEMORY IN FREE SPACE? 
BR IF NO 


3 
3: GOT KT? 

3: NO. GET OUT. 

; YES. ENABLE KT. 

;HIGH ORDER ADDRESS START 

3;GET >28K START ADDRESS CIN 32W BLOCKS) 


sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sALINE 4K BOUNDARY 

sSAVE HIGH ORDER 

sSAVE LOW ORDER 

sSETUP PAR6 MAPPING REGISTER 
sCOPY ADDRESS ia B TO PAR6 


DE T 
a = LOCATION EQUAL EXPD? 
Cave HIGH ORDER IN ERROR 


Y 


SEQ 0084 


SS TS A 


~_ 
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SEQ 0085 
| CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
| 
3371 020120 010137 002232 MOV R1,ERRLO sSAVE LOW ORDER IN ERROR . 
3372 020124 010337 002224 MOV R3,EXPD i SAVE EXPO FOR ERROR REPORT 5 | 
3373 020130 011437 002226 MOV CR4),RECV sSAVE RECV FOR ERROR REPORT ' 
3374 020134 000421 BR 50% 3 | 
3375 020136 062701 000002 32%: ADO @2,R1 sUPDATE NON PARG6 ADDRESS j 
3376 020142 005500 AOC RO sMAKE IT DOUBLE PRECISION ADD 
3377 020144 062704 000002 ADD @2,R4 | UPDATE PAR FORMAT ADDRESS | 
3378 020150 020427 140000 CMP R4,140000 sEND OF PARS MAPPING AREA? 
3379 020154 103755 BLO 30% 36R IF NO 
3380 020156 020000 SUB #20000 ,R4 } BACKUP INTO — MAPPING — 
3381 020162 062737 000200 172352 ADD 0200, @@KIPARS iPOINT TO NEXT 4K BLOCK >28K 
3382 020170 023737 172352 003124 CMP BOKIPARS, KTFLG ;END OF MEMORY? 
3383 020176 101744 BLOS 30% om IF NO 
3384 020200 004737 017354 50$: JSR PC .KTOFF sTURN OFF MEMORY MAPPING 
3385 020204 000241 CLC iSET FAILURE 
3386 020206 200403 BR 60% 
3387 020210 004737 017354 55%: JSR PC ,.KTOFF ; TURN OFF MEMORY MAPPING 
3386 020214 000261 SEC sSET SUCCESS 
3389 020216 C00207 60%: RTS PC 
3390 -SBTTL REGSAV - SAVE R1-RS ON STACK 
3391 s¢ 
3392 3 
3393 sROUTINE TO 
te sSAVE Ri THROUGH RS ON THE STACK 
3 
3396 sCALLING SEQUENCE: 
3397 3 
i404 ; JSR RS ,REGSAV 
3400 ; THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
3401 sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
3402 sTHE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
3403 sREGISTERS. 
3404 3 
3405 sTHIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
3406 sCALLED VIA A JSR PC INSTRUCTION 
3407 3 
3408 5° 


3409 
3410 020220 REGSAV: 
MOV 
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| GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


105 
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020310 


116 


-SBTTL GETPAT - GET & BIT PATTERN FROM OPERATOR 
3° 
sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


Q 
:INPUTS: NONE. 
b 
;OUTPUTS: 
: RO OCTAL NUMBER FROM THE OPERATOR 
: 
;CALLING SEQUENCE: 
: JSR“ PC,GETPAT 
GETPAT: : ; 
SAVREG SAVE THE GENERAL REGISTERS 
1s: GMANID DATASC,PATDAT,0,377,0,377,NO : 
TRAP C8GMAN 
BR 1 
"WORD  PATDAT 
“WwORD TSC 
“WORD DATASC 
WORD 377 


"WORD TSLOLIM 
‘WORD TS$HILIM 


100008: 
BNCOMPLETE i$ 
BCC 
MOV PATDAT,RO 
RTS PC 


+ 
;LOCAL DATA AREA 
ge 


PATDAT: .WORD 0O 
124 DATASC: oy ‘ENTER DATA 


sRETRY IF ERROR 


sDATA PATTERN FROM OPERATOR 
sRETURN TO CALLER - 


sTEMPORARY STORAGE FOR DATA 
PATTERN’ 
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| SEQ 00867 
GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 


3452 .SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
s¢ 
$454 ;ROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE. 
7 
3456 s INPUTS: 
3457 : RO ADDRESS OF ASCIZ STRING OF MENU 
3458 : R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
] 
3460 ;OUTPUTS: 
3461 : RO NUMBER OF THE OPERATOR'S SELECTION 
3463 020336 ETSEL: : 
3464 020336 SAVREG ;SAVE GENERAL REGISTERS 
3465 020342 010002 MOV RO,R2 ;SAVE THE MENU ADORESS 
3466 020344 010203 1%: MOV R2:R3 ;START OF MENU STRING 
3467 020346 713 28: TST CR3) sEND OF ASCII ? 
3468 020350 001412 BEQ 33 ;BRANCH IF ALL LINES DISPLAYED 
3469 020352 PRINTF @SELASC.(R3)+  ;DISPLAY THE MENU 
020352 012346 MOV (R3)+,-CSP) 
020354 012746 020522 MOV @SELASC, -(SP) 
020360 012746 000002 MOV @2,-(SP) 
020364 01 MOV y 
366 104417 TRAP  C$PNTF 
370 706 000006 ADD d 
3470 020374 000764 BR 28 
3471 020376 3%: GMANID MENASC ,MENRES,O,-1,0,-1,NO 
020376 104443 TRAP C$GMAN 
000406 BR 100018 
020402 020556 .WORD MENRES 
000042 "WORD  TSCODE 
020406 020527 "WORD MENASC 
020410 177777 ‘WORD -1 
020412 000000 "WORD TSLOLIM 
020414 177777 “WORD TSHILIM 
020416 100018: 
3472 020416 BNCOMPLETE 18 ;RETRY IF ERROR 
020416 103352 Bcc 1 
3473 020420 013700 020556 MOV MENRES ,RO ;GET THE OPERATOR'S REPLY 
3474 020424 020001 CMP RO,R1 ;COMPARE TO IAXIMUM ALLOWED 
3475 020426 101411 BLOS ‘S$ ;BRANCH IF OK 
3476 020430 PRINTF @MENERR ;DISPLAY ERROR MESSAGE 
020430 012746 020454 MOV OMENERR, -(SP) 
012746 000001 MOV #1, -C(SP) 
020440 010600 MOV RO 
020442 104417 TRAP CSPNTF 
020444 062706 000004 ADD 64,SP 
3477 020450 000735 BR 18 ;RETRY 
3478 020452 000207 S$: RTS Pc ;RETURN TO CALLER 
3479 020454 045 116 045 MENERR: .ASCIZ ‘SNSA #0 Menu Selection Too Large *ss' 
0 045 116 045 SELASC: .ASCIZ ‘sNsT’ 


3480 020522 
3481 020527 105 156 164 MENASC ty ‘Enter Menu Selection: ‘ 


3462 . 
3483 020556 000000 MENRES ; -WORD 0 





_ 
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SEQ 00868 
| CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


gees .SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
s¢ 
3487 3 
sess sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
3 i 
3490 3 INPUT: 
3491 3 
3492 3 NONE. 
3493 3 
oto s OUTPUT: 
$ 
3496 3 CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
+444 ’ 1 MANUAL INTERVENTION IS OK 
; 
404 : sSIOE EFFECTS: 
500 3 
3501 3 A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
3502 3 NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
3503 3 ALLOWED. 
3504 3 
3505 3° 
3506 
3507 020560 CHKMAN: : 
020560 SAVREG sSAVE THE REGISTERS 
3509 020564 MANUAL ;SEE IF MANUAL INTERVENTION OK 
020564 104450 TRAP C$MANI 
3510 020566 BCOMPLETE 1$% ;BRANCH IF ALLOWED 
020566 103411 Bcs $ 
3511 020570 PRINTF sPRINT THE WARNING MESSAGE 
020570 012746 020614 MOV @NOMAN, -( SP) 
020574 012746 000001 MOV #1,-CSP) 
020600 01 MOV SP ,RO 
020602 104417 TRAP  CSPNTF 
020604 062706 000004 ADD 04,SP 
3512 020610 000241 CLC s;CLEAR CARRY FOR ERROR 
sets 020612 000207 1%: RTS PC sRETURN 
te 020614 045 116 045 NOMAN: .ASCIZ ‘SNSA #¢4 Manuel Intervention not Allowed - Test Aborted «es' 
even 
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| SEQ 0089 
| ENVIRN - SETUP FREE DIAGNOSTIC SPACE 


sai8 -SBTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
| ‘ 
sese s SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
3522 020710 ENVIRN: MEMORY RO 
020710 104431 TRAP CSMEM 
3523 020712 010037 003116 MOV RO,FREE ; GET 1ST FREE ADDRESS... 
3524 020716 062737 000002 003116 ADD @2,FREE 
3525 020724 011037 003120 MOV CRO) ,FRESIZ 3...ANO WORD COUNT. 
3526 020730 162737 000004 003120 SUB 64, FRESIZ 
3527 020736 013702 002012 MOV L$ R2 3; GET NUMBER OF UNITS 
742 162737 000007 003120 10%: sue a" »FRESIZ s TAKE AWAY 7 WORDS PER UNIT 
3530 020752 001575 BNE 10% 
3531 020754 013700 003116 MOV FREE ,RO sGET FIRST FREE ADDRESS 
3532 020760 063700 003120 ADO FRESiZ, RO sPOINT TO LAST FREE ADORESS 
3533 020764 162700 000002 SUB #2,R sBACKUP 1 WORD 
3534 020770 010037 003122 MOV RO, FREEHI sSTORE LAST FREE ADDRESS 
3535 020774 Cc00240 NOP §OO00600060606606000060060006666600660600686008 
3536 020776 012701 177520 MOV @BOVPCR,R1 sGET BDOV11 PCR ADDRESS 
3537 021002 010102 MOV R1,R2 sCOPY TO R2 
3538 021004 062702 000002 ADD @2,R2 3 HE 
3539 021010 004737 016456 JSR PC, XNXM sSEE IF WE ~ ONE 
3540 021014 103001 BCC 15% :0K TO SET FLAGS 
3541 021016 000425 BR 40% sRETURN WITH FLAGS CLEAR 
3542 021020 013701 177520 158: MOV BOVPCR,R1 ;SAVE PCR CONTENTS 
35435 021024 062701 000001 ADD #1,R1 3 T 
3544 021030 012702 177520 MOV @BDVPCR ,R2 sGET 6DV11 PCR ADDRESS 
3545 021034 005212 INC CR2) sTRY TO WRITE TO IT 
3546 021036 013703 177520 MOV BOVPCR RS 3sGET RESULTS 
3547 021042 10 ° s0I0 IT CHANGE 
1044 1 MUST BE 11/238 
3549 021046 005237 003136 INC T23A 3SE FLAG 
3550 021052 042737 170000 002120 BIC #170000,L$HIME ;SUPERVISOR COULD BE WRONG 
3551 3 NOP 3BR 40% FOR RELEASE 
3 PRINTF M8166 rTELL THE SYSTEM TYPE 
3553 021060 000402 BR 40% T 
3554 021062 ©00S257 665240 208: INC T238 iSET THE FLAG 
3555 F NOP ;B8R 40% FOR RELEASE 
3556 3 PRINTF M8189 sTELL THE SYSTEM TYPE 
3557 021066 40%: 


3558 021066 000207 RTS PC sRETURN 





KTINIT 


3 

3564 

3565 

3566 

3567 021070 
070 


3596 021240 
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012716 
000002 


010037 
000207 
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- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


-SBTTL KTINIT 


t¢ 


;ROUTINE TO INIT KT-11 
‘ 
ge 


KTINIT: 
R KTFLG 
CLR KTENABLE 
CHP LOHIME , 61577 
BLOS «98 
HOV Boe BEERAVEC 
TST BeSRO 
NOP 
MOV LSHIME .KTFLG 
CMP 67777 , KTFLG 
BMI a 
BIC ¢5777 .KTFLG 
4: BIC #177, KTFLG 
S$: MOV RO, @SERRVEC 
CLR 
MOV @KIPARO,.R 
18: MOV 077406 Gcr1) 
MOV RO,(R1d> 
ADO @200,R0- 
CMP RO, #2000 
BNE 18 
MOV #177600, -(R1) 
BR 98 
28: MOV 06%.(SP) 
RTI 
6%: MOV RO, @@ERRVEC 
98: RTS PC 





- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


INIT >26K MEMORY FLAG 
INIT TEST >26K FLAG 
ENOUGH MEMORY (>28K)? 
OLD ERR VEC PTR. 
VEC PTR. 
CTRAP IF NO). 
S. SET KT FLAG. 
GOT 22 BIT MACHINE? 


ALIGN ON BOUNDARY 


RESTORE n° 4 on VEC PTR. 


RO = AR DAT 

Ri_= KI RE $‘pTR. 
SET DESCRIPTOR REG 
SET KIPAR 

BUMP AR DATA BY “4K 
AT “1/0? 


NO. 
YES. SET KTPAR7 FOR I/0. 


SET UP RETURN 
RTI TO NEXT LOCATION 


RESTORE OLD ERR VEC PTR. 
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SEQ 0091 


17 


SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
Requires thet SOFINIT end WRICHR heve been done previous to cell. 


RS CURRENT UNIT NUMBER 
H 
The Extended Features Switch is set. 


SseeSbeESs 


mm 
-oO 


SESSESESSS 
SevAUaunD 


' COMMAND PACKET. 
021244 , a <.03>€177774 | ;MUST BE ON MOD 4 BOUNDRY. 
021244 00000 CMOPKT:: © 31ST WORD IS TSOS COMMAND. 
021246 000000 0 32ND WORD IS THE BUFFER LOW ADORESS. 
3620 021250 000000 0 33RD WORD IS THE BUFFER HIGH ADORESS. 
1 021252 000000 0 34TH WORD IS THE BYTE/RECORD/FILE COUNT. 
3e35 ' WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
sees gei238 000000 WSMBK:: O 31ST WORD:: SEL O 
02 000000 0 32ND WORD:: SEL 2 
3627 021260 000000 o 33RD WORD:: SEL 4 
BB ¥ SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 
363 a 
3635 INPUTS: 
3634 sOUTPUTS: ; 
Py The NXMFLG is set if we can test. 
337 3 The NXMLO end NXMHI eddresses ere setup. 
t- ; 
021262 MEMCK: : 
SAVREG SAVE THE REGISTERS 
005037 003130 CLR NXMFLG CLEAR THE 
1272 005037 003132 CLR NXMLO sCLEAR THE TEST ADORESS LO 
1276 005037 003134 CLR NXMHI sCLEAR THE TEST ADORESS 
S 021 005737 003140 TST 7238 sIS IT A 11/238? 
1306 001407 BEQ is KD 
10 eH 0u2120 007777 ow LOMINE 07777 ; Gre ATER THAN 126K 
73? 021436 pe NXNTST SETUP THE ADORESS 
1 7 BR 133 sSET THE A EXIT 
7 003136 18: $7 T23A 31S IT A 11/23A? 
1 04415 | 4 3X0 
3654 O21 ae Se Ce ee oe a OES sSa/ese Mri HESORY 
3655 023 o28737 002120 003777 ow LOHIME , 03777 stneAten tron 64K bar LESS THAN 92K? 
1 1 0 rT’ 3MO, CHECK 24K 
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| SEQ 0092 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 

3657 021354 004737 021436 JSR PC .NXMTST ;SETUP THE ADDRESS 
3658 021360 000411 BR 13% sSET THE FLAG AND EXIT 
3659 021362 023727 002120 001577 4%: CMP LSHIME, 01577 ;GREATER THAN 24K BUT LESS THAN 64K? 
3660 021370 103410 BLO 148 :NO, TELL THEM AND EXIT WITH FLAG CLEAR 
3661 021372 004737 021436 JSR PC ,NXMTST s SETUP THE ADORESS 
$662 021376 062737 000077 003134 ADD 077 , NXMHI FOOL THE 11/02 & 11/03 
3663 021404 005237 003130 13%: INC NXMFLG {SET THE FLAG 
3664 021410 000411 BR 15% sEXIT 
3665 021412 000410 14%: BR 15$ ;NOP FOR PRINTOUT 
3666 021414 PRINTF @NOMEM ;TELL THEM & EXIT *eeNO PRINTseses 

021414 012746 005454 MOV @NOMEM, -( SP) 

1420 012746 000001 MOV @1,-(SP) 

021424 01 

021426 104417 TRAP CSPNTF 

021430 062706 000004 ADO 64,SP 
3667 021434 000207 15%: RTS PC ;RETURN 
3668 
3669 3° 
3670 , SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 

: 
3678 ; OUTPUTS :N¥MLO, NXMHI ;SETUP WITH NXM ADDRESS 
¢ 

si . 
3676 021436 013701 002120 NXMTST: MOV LSHIME R1 :GET TOP OF MEMORY 
3677 021442 062701 000200 ADD 6200,Ri MAKE IT I/O BLOCK OR OTHER NXM 
3678 021446 042701 000177 BIC @177.R1 
3679 021452 010102 MOV R1,R2 ;RESAVE RESULTS 
3680 000006 .REPT 6 
3681 ASL Ri :PUT IN PLACE FOR XFER 
3682 .ENOR 
3683 021470 010137 003132 MOV R1,NXMLO ;SAVE TEST ADDRESS LOW 
3684 000012 .REPT 10. 
3685 ASR R2 :PUT IN PLACE FOR XFER 
3686 .ENOR 
3687 021520 042702 177700 BIC #177700,R2 ;D0N'T WANT ILA 
3688 021524 010237 003134 MOV R2,NYMHI ;SAVE TEST ADDRESS HIGH 
$689 021530 000207 RTS PC ;RETURN 
3691 021532 ENDMOD 
$700 -TITLE TSV4 - MISCELLANEOUS SECTIONS 
3702 021532 BGNMOD TSV4 

021532 TSV4:: 
3703 
3709 
3710 
3711 
3712 .SBTTL PROTECTION TABLE 
3713 021532 BGNPROT 

021532 L$PROT:: 
3714 021532 177777 #177777 «4177777 WORD 8, -2, -2. <8 :NO DEVICE PROTECTION REQUIRED. 


3715 021542 ENDPROT 


A  ———————— ———— ———  —  ———  —  — 
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INITIALIZE SECTION 


000035 


000037 


002172 


002012 


003170 


-SBTTL INITIALIZE SECTION 


SEQ 0093 


THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
iAT THE BEGINNING OF EACH PASS. 


VIF “START” OR “RESTART” 
IF “CONTINUE”, 


+ 
TINSERT TEMPORARY JUMP TO ODT 


LSINIT:: 


40%: 


18: 


2s: 


BGNINIT 

CLR EXTFEA 

CLR NXMFLG 

MOV #€PRT1,EPRTSW 
CLR SIFLAG 

CLR K TENABLE 

CLR 


RAMSIZ 
— @€F . CONTINUE 


Vv €F . CONTINUE ,RO 
TRAP CSREFG 
BNCOMPLETE 18% 

Bcc 1$ 

CMP UNITN,LSUNIT 
BHIS 4% 

TsT OUFLG 

BMI NXTU 

MOV UNITN,R1 

ASL R 


1 
TST ds 
BIT ht Saltash 


Tu 
EXIT INIT 
TRAP CsExIT 
. WORD 10030- 
READEF @€F .NEW 
4 I EF .NEW,RO 

CSREFG 
BNCOMPLETE NXTU 
Bcc 


OF RESTART ,RO 
REFG 


BRESET 
TRAP CSRESET 


SET QUICK-PASS FLAG ANC BUS-INIT. 
NOTHING IS REQUIRED. 


sSET UP PRIMARY MESSAGE FOR REPLACEMENT 
sCLEAR “SOFT INIT” FLAG 

sCLEAR TEST ABOVE 28K FLAG 

s;CLEAR RAM SIZE FOR RAMERR ROUTINE 


;UNIT IN RANGE? 
;68R IF NO. 
sORCPPED UNIT? 
;6R IF YES 


; DROPPED? 
:D0 NOTHING IF “CONTINUE”. 


; TAKE NEXT UNIT IF NOT NEW PASS. 


31ST PASS, Oe INIT. 
sBUS RESET 
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INITIALIZE SECTION 


3758 021704 
3759 021710 
3760 021714 

021720 


06 
022112 
38607 022114 


005037 
012737 
37 


012001 
010137 


002206 
002214 
003136 
003140 


003372 
177777 


177777 
002212 


002174 
002174 
177777 


002012 
002212 


000100 


002174 


003104 
002212 


002200 


002176 


002174 


318: 


4$: 
NEWPAS: 
NXTU: 


10%: 
SETU: 
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CLR TSTCNT 

CLR FATFLG 

CLR T23A 

CLR 7238 

MOV 0340, -(SP) 

MOV @20%, -(SP) 

JMP 0.007 

CLR SKIPT 

MOV @-1,QVvP 

JSR PC, ENVIRN 

JSR PC /KTINIT 

MOV @ERTABL, 

CLR (RO)+ 

CMP RO, OERTABE 

8LO 30 

BR as 

CLR ave 

ome PASRPT 

MOV @-1,UNITN 

CLR DEVCNT 

BREAK 

TRAP CSBRK 

INC UNITN 

CMP UNITN,LSUNIT 

BLO SETU 

MOV @-1,0UFLG 

BR 4 oe 

TRAP C$DCLN 

NOP 

CHP LSUNIT, 01 

BLOS #$NEWPAS 

TST DEVCNT 

BEQ NEWPAS 

RFLAGS RO 

TRAP CSRFLA 

BIT @ISR.RO 

BNE NEWPAS 

DORPT 

TRAP C8DRPT 
NEWPAS 
UNITN, RO 
UNITN. RO 

TRAP _ C8GPHRD 

BNCOMPLETE NXTU 

Bcc NXTU 

CLR LG 

INC DEVCNT 

MOV (RO)+,R2 

MOV R1,CSRADOR 


NUMBER OF TESTS RUN IN PASS 
OR COUNT 


sCLEAR 117238 FLAG 
RETURN TO 


,sapentenT THE DEBUGGER 
LEAR THE SUBTEST “SKIPPER” 


.QUICK VERIFY. 
Set ENVIRONMENT . 
S INITIALIZE KT MEMORY 


:CLEAR THE ERROR TABLE 


Y MANAGEMENT 


:GO REPORT THE STATUS 


:INIT UNIT NUMBER 
;CLEAR COUNT OF DEVICES RUNNING 


;...AND SET NEXT UNIT NUMBER. 


s;ABORT, NO MORE UNITS. 


sHOW MANY UNITS SELECTED? 
;BR IF ONLY 

sARE ANY STILL RUNNING? 
;68R IF NO 


sSHOULD WE PRINT STATISTICS 
;B8R IF NO 


:GET UNIT N P-TABLE POINTER. 


BR IF UNIT NOT AVAILABLE. 
:CLEAR “DROPPED” FLAG. 
GET 1ST REGISTER ADDRESS 


sADDRESS OF REGISTERS OF UNIT UNDER TEST 


SEQ 0094 
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sGET INTERRUPT aerontTy. 
:SET INTERRUPT VECTOR POINTER. . 


RUNNING 
sCLEAR ERROR EXTENSION FLAG. 
oe TESTING MULTIPLE UNITS? 


sYES -- GE? OPERATOR FLAGS. 
sSHOULD WE PRINT UNIT @? 


sADORESS OF FIRST REGISTER 
ISTERS 


EGISTER 
hee | BOTH CONTROLLER REGISTERS... 
.AND BR 


ALL 
iFLAG DEVICE AS NON-EXISTENT 


3809 022120 012001 MOV (RO)>, A :GET VECTOR ADORESS. 
sMOV ss CRO) 
381 ;MOV Ra. toni ;SET INTERRUPT PR 
3812 022122 010137 002202 MOV 1, IVEC 
3813 022126 012721 016276 MOV State: CR1)+ +...VECTOR. 
3014 022132 013721 002204 MOV IPRI,(R1)+ +...AND PRIORITY. 
| 3816 022136 is: 
| 3817 : TST ave 31ST PASS 2? 
3818 : BEQ 5$ ;NO, SKIP THE PASS 1 STUFF. 
se 
4 
3621 :1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
3822 ;THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 
3 
3824 022136 013701 002174 MOV UNITN, RL 
3825 022142 006301 ASL 
3826 022144 C52761 100000 003170 BIS @81T15,ERTABL(R1) ;SAY DEVICE 
3827 022152 005037 005766 CLR EXTA 
3828 022156 023727 002012 000001 CMP L$UNIT, @1 
3929 022164 101416 BLOS 10% 38 
30 0221 RFLAGS 
022166 104421 TRAP  CSRFLA 
3831 022170 032700 001000 BIT @PNT RO 
022174 001412 EQ 10% ;BR IF NOT 
3833 022176 PRINTF #PUNIT,UNITN ;PRINT THE UNIT @ 
022176 013746 002174 V UNITN, -(SP) 
022202 012746 022270 MOV @PUNIT, -( SP) 
022206 012746 MOV @2,-(SP 
2212 O1 V SP ‘RO 
022214 104417 TRAP CSPNTF 
022216 062706 000006 ADD 06,SP 
3834 022222 10$: 
3835 022222 005037 003106 CLR v 
3836 022226 013701 002200 MOV CSRADOR,R1 
3837 022232 010102 MOV 1,R2 :START OF REG 
3838 022234 062702 000002 @TSSR,R2 :ADDRESS OF TSSR R 
3839 022240 004737 016456 JSR x 
022244 103005 BCC 23 IF 
3841 022246 010137 003106 MOV R1,NODEV 
3842 022252 012737 177777 003104 MOV @-i,DUFLG ;DROP THIS UNIT. 
3843 022260 28: 
3844 ; 
3845 ;FINALLY, SET CPU PRIORITY AND WE'RE DONE. 
3846 3 
3847 022260 S$: SETPRI #PRIOO ;ENABLE INTERRUPTS. 
022260 012700 0v0000 MOV @PRIOO,RO 
022264 104441 TRAP _— C$SPRI 
3848 022266 ENDINI 
022266 L10030: 
cal 022266 104411 TRAP C$INIT 
$850 022270 045 116 045 PUNIT: -ASCIZ /GNSNSAteeee TESTING UNIT SD28A s0000/ 


SEQ 0095 


nn 


TSV4 - MISCELLANEOUS SECTIONS MACRO YOS.02 Tuesday 17-Sep-85 11:22 Page 73 


SEQ 0096 
_ ADD AND DROP UNITS SECTIONS 


se3 -SBTTL ADD AND DROP UNITS SECTIONS 
| 
3855 tee 
56 s THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
| 3857 + TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 
+4 ; OR (8) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
gee 
3860 022336 BGNAU 
022336 LSAU:: 
3861 022336 010001 MOV RO,R1 $ = UNIT TO BE ADDED (RO) 
3862 022340 006301 ASL Ri ; MAKE IT A WORD INDEX 
3863 022342 052761 100000 003170 BIS #100000, ERTABL(R1) 3 Set THE “ACTIVE” BIT 
3864 022350 042761 040000 003170 BIC #40000 ,ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
3865 022356 PRINTF 1%,R0 
2356 010046 MOV 0, -CSP) 
360 012746 022404 MOV #1%,-CSP) 
2364 012746 000002 MOV @2,-C(SP) 
022370 01 MOV : 
022372 104417 TRAP CSPNTF 
022374 062706 000006 ADD @6,SP 
3866 022400 EXIT AU 
022400 000167 «WORD J$JMP 
022402 000026 -WORD  L10031-2-. 
3867 022404 045 116 045 18: -ASCIZ /sNSA UNIT SDA ADDED/ 
3868 EVEN 
3869 
3870 022432 ENDAU s UNUSED. 
022432 L10031: 
3871 022432 104452 TRAP CsAU 
3¢¢ 
3872 ; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
sore ; TO BE REMOVED FROM THE TEST LIST. 
3 
3675 s SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
3876 ; “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
38677 : COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
3878 3; WILL PRINT OR ] « AND THE P-TABLES OF THOSE 
3879 ; WHICH ARE STILi ACTIV 
: ; UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 
3882 34 BGNOU 
022434 L$DU:: 
3863 022434 012737 177777 003104 MOV #-1,OUFLG 
3884 022442 010001 MOV RO,R1 
3865S 022444 006301 ASL R1 
3886 022446 052761 140000 003170 BIS #140000, ERTABL(R1) : SAY DROPPED 
3887 022454 000240 000240 000240 240,240,240 s 22222222? 
3888 022462 PRINTF 1%, 
022462 010046 RO, -(SP) 
022464 012746 022510 MOV #1%,-(SP) 
022470 012746 000002 MOV #2,-C(SP) 
022474 01 
022476 104417 TRAP CSPNTF 
022500 062706 000006 ADD #6 ,SP 
3889 022504 EXIT OU 
022504 000167 


2 -WORD = JSJMP 
022506 000030 «WORD 110032-2-. 
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SEQ 0097 
| ADD AND DROP UNITS SECTIONS 
3890 022510 045 116 045 18: .ASCIZ /SNSA UNIT SOSA DROPPED/ 
3891 .EVEN 
3892 022540 E 
022540 L10032: 
022540 104453 TRAP csou 
3693 pee 
sess 3 AUTO-DROP CODE SECTION. 
g*e 
3896 022542 BGNAUTO 
022542 L¢AUTO:: 
3897 022542 013705 002200 MOV CSRADOR ,RS sPOINT TO DEVICE REGISTER 
3898 022546 012703 000550 MOV 6360. .R3 3 TIME FOR 2400‘ REEL TO REWIND 
3899 022552 004737 016330 108: JSR PC ,WAITF ;WAIT FOR SSR TO SET 
3900 022556 103420 BCs 208 ;LEAVE WHEN SSR IS SET 
3901 022560 DELAY 250. sWAIT FOR .25 SECONDS 
022560 012727 000372 MOV 250. ,(PC)+ 
022564 000000 .WORD 0 
022566 013727 002116 MOV LSOLY,(PC)+ 
022572 C00000 .WORD 0 
022574 005367 177772 DEC -6(PC) 
022600 001375 BNE .-4 
022602 005367 177756 DEC -22(PC) 
2. 001367 BNE .-20 
3902 022610 3 DEC ;BUMP COUNTER DOWN 
3903 022612 001357 BNE 10$% sKEEP GOING 
3904 022614 004737 017262 JSR PC, CKDROP s;TRY AND DROP UNIT 
3905 022620 208: 
3906 022620 ENDAUTO ; UNUSED. 
022620 L10033: 


022620 104461 TRAP CsAUTO 
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SEQ 0098 
| CLEAN-UP AND REPORT CODING SECTIONS 
3908 .SBTTL CLEAN-UP AND REPORT CODING SECTIONS 
| 3910 ‘e 
3911 THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
3912 ; EXECUTED AT THE END OF EACH PASS COR SUB-PASS 
3913 ; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 
gee 
3915 022622 BGNCLN 
022622 LSCLEAN:: 
3916 022622 013705 002200 MOV CSRADOR,RS ;POINT TO DEVICE REGISTER 
3917 022626 005737 003104 TST DUFLG :"DROPPED” FLAG IS SET ON.. 
3918 022632 100405 BMI 1$ .AND GROSS CONTROLLER FAULT. 
$919 [DON’T TRY TO XCT CLEANUP CODE. 
3921 022634 012765 000000 000002 MOV #0, TSSRCRS) ;00 SOFT INIT 
3922 022642 004737 016330 JSR PC; WAITF 
3923 022646 18: 
3924 022646 2$ ENOCLN 
022646 (10034: 
— 022646 104412 TRAP = C$CLEAN 
soe 
3926 ; THE REPORT CODING SECTION CONTAINS THE 
$927 ; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
R7-e 
3929 022650 BGNRPT 
022650 LSRPT:: 
3930 022650 PRINTS @DEVSUM 
022650 012746 023112 MOV @DEVSUM, -( SP) 
022654 012746 000001 MOV @1,-(SP) 
2 01 MOV 
022662 104416 TRAP CSPNTS 
2 062706 000004 ADD 
3931 022670 010246 MOV R2.-C(SP) 
39 72 010346 MOV R3,-(SP) 
3933 022674 01 MOV R4.-(SP) 
3934 022676 012704 003170 MOV SERTABL ,R4 ; GET START OF ERROR TABLE. 
3935 022702 005003 CLR R3 ; CLEAR UNIT NUMBER 
3936 022704 011402 18: MOV (R4),R2 ; GET ERROR TABLE ENTRY € TEST IT. 
3937 022706 001467 BEQ 4$ ; ZERO IF UNIT NOT RUN 
3938 022710 100066 BPL 43 
3939 022712 032702 040000 BIT @B81T14,R2 ; WAS UNIT DROPPED? 
3940 022716 001015 BNE 23 ; BR IF YES 
3941 022720 042702 170000 BIC $tC7777,R2 ; GET ERROR COUNT FIELD 
3942 022724 PRINTS @DEVONL.R3,R2 ; PRINT 
022724 010246 MOV R2,-(SP) 
022726 010346 MOV R3,-(SP) 
022730 012746 023147 MOV @DEVONL , -(SP) 
022734 012746 0v0003 MOV @3,-C(SP) 
022740 01 : 
022742 104416 TRAP C$PNTS 
022744 062706 000010 ADD #10, SP 
3943 022750 000446 BR as 
3944 022752 020227 160000 2%: CMP R2, 160000 ; WAS UNIT NON-EXISTENT? 
3945 022756 001012 BNE 3$ ; BR IF NO 
3946 022760 PRINTS @DEVNXR,R3 
022760 010346 MOV R3,-(SP 
022762 012746 023217 MOV @DEVNXR, -(SP) 
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CLEAN-UP AND REPORT CODING SECTIONS 


022766 012746 000002 
022772 O01 
022774 104416 
022776 062706 000006 
3947 023002 000431 
02 020227 160001 
3949 023010 001012 
023012 
023012 io) 
023014 012746 023301 
023020 012746 000002 
3024 01 
023026 104416 
023030 062706 000006 
3951 023034 000414 
3952 023036 042702 170000 
3953 023042 
023042 010246 
3044 C10 
023046 012746 023362 
3052 012746 
023056 01 
023060 104416 
023062 062706 000010 
3954 023066 062704 000002 
3955 023072 
3956 023074 020427 003370 
3957 023100 103701 
3958 023102 012604 
3959 023104 012603 
3960 023106 012602 
3961 023110 
023110 
023110 104425 
3962 
3963 023112 045 116 045 
3964 023147 045 101 040 
3965 02321 045 101 040 
3966 023301 045 101 040 
3 045 101 040 


3%: 


30%: 


A$: 


SEQ 0099 


3; WAS UNIT NOT READY AT STARTUP? 
s BR IF NO. 


4 
@*C7777,R2 
@DEVORO.R3,R2 
R2,-C(SP) 

R3, -(SP) 
@DEVORO 
@3.-(SP) 
SP ;RO 
CSPNTS 
#10, SP 
#2 .Ra 
Rd, @ERTABE 


i 
CSP)+,R4 
CSP)+,R3 
CSP)+,R2 

3; UNUSED. 


th 
° nz 2 
| 


-CSP) 


CSRPT 


/SNSADEVICE STATUS SUMMARY: sN/ 
T SD3SA ONLINE, ERRORS = sDsN/ 
DROPPED, NON-EXISTENT REGISTERSN/ 
UPSN/ 
DROPPED, 


/#A UNI 
NCT READY AT START 


UNIT #D38A ERRORS = sDsN/ 
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| SEQ 0100 
| CLEAN-UP AND REPORT CODING SECTIONS 
3975 
ade | -TITLE TEST 1 - HARDWARE TEST 1-8 TESTS 
3984 
3985 023432 BGNMOD TSV7B 
23432 


| 
| 
0 TSV7B: : 
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| SEQ 0101 
TEST 1: WRITE TAPE MARK RETRY 
4000 -SBTTL TEST 1: WRITE TAPE MARK RETRY 
4001 - 
4003 ; THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE | 
4004 sREVERSE, ERASE, WRITE TAPE MARK). SUBTESTS ARE AS FOLLOWS: i 
4005 $ 
4006 s 
prod ;THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 
3 
4009 i 
4010 3 
4011 8° 
4012 bet eted BGNTST 11: 
4013 023432 012737 006354 002172 MOV GEPRT1,EPRTSW sPRIMARY ERROR MESSAGE 
4016 023440 012700 032017 MOV @TST29ID RO sASCII MESSAGE TO IDENTIFY TEST 
4019 023444 004737 016570 JSR PC. TSTSETUP :00 INITIAL TEST SETUP 
4020 023450 012737 000005 002210 MOV #5 , LOOPCNT sPERFORM S ITERATIONS 
4021 023456 CO05037 026374 CLR T29CNT sCLEAR TAPE RECORD COUNTER 
4022 023462 T29LO00P: 
4023 3¢ 
4024 3 
$833 sTEST 1, SUBTEST 1 
4 
4027 ;VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE 
4028 sTAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION, WITH THE 
prs H4 sNON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 
a 
4031 3 
a 
1 4033 a 
4034 023462 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
023462 T1.1: 
023462 104402 TRAP CsBSU8 
4035 023464 004737 032046 JSR PC, T29REST sSET COMMAND PACKET 
4036 023470 004737 032140 JSR PC, T29RT2]) 3SET UP pA COMMAND PACKET 
4037 023474 004737 032202 JSR PC, T29RTS sSET UP OTHER COMMAND PACKET 
4038 023500 012737 023420 026400 MOV #10000. , T29DLY sSET_UP DELA Y ROUTINE 
4039 023506 004737 016054 10%: JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
4040 023512 103426 6cS 20% ;6R IF INIT WAS OK 
4041 023514 DELAY 250 sDELAY ABOUT .25 SECONDS 
023514 012727 000250 MOV @250,(PC)> 
023520 000000 - WORD i] 
023522 013727 002116 MOV LSOLY,.CPC)+« 
023526 000000 -WORD O 
023530 005367 177772 DEC ee | PC) 
023534 001375 BNE 
023536 005367 1/7756 DEC *33¢ PC) 
023542 001367 BNE --20 
4042 023544 005337 026400 DEC T290LY sBUMP DELAY ROUTINE DOWN 
4043 023550 0013556 BNE 10% 3BR, IF MORE DELAY TIME LEFT 
4044 023552 005237 002214 INC FATFLG sERROR COUNT 
4048 023556 010001 MOV RO.R1 “ : CONTENTS OF TSSR REGISTER 
4049 023560 ERROF ERRNO, SF LERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
023560 104455 CsSEROF 
023562 000145 1 


. 10 
023564 003646 -WORD SFIERR 
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SEQ 0102 
TEST 1: WRITE TAPE MARK RETRY 
023566 012114 .WORD SFIMSG 
4050 023570 013737 002174 026240 20%: MOV UNITN, T290SW ;SET UP UNIT NUMBER 
s082 023576 012704 026220 MOV @T29PACKET RO sSUBROUTINE NEEDS PACKET ADORESS 
4053 023602 004737 010742 JSR PC ,WRTCHR }ISSUE WRITE CHARACTERISTICS 
4054 023606 103407 BCs 25% :0R, IF COMPIAND ISSUED OK 
4055 023610 005237 002214 INC FATFLG 
4059 023614 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
16 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
16 104456 TRAP § CSERHRO 
02 000146 .WORD 102 
023622 005052 “WORD UWRTMSG 
023624 012114 WORD SFIMSG 
4061 023626 25%:  CKLOOP ;LOOP IF SELECTED 
023626 104406 TRAP  CSCLP1 
023630 016501 000002 MOV TSSR(RS).R1 :GET THE TSSR 
4063 023634 010102 MOV R1,R2 3SET UP EXPECTED 
4064 023636 042702 000100 BIC @OFL .R2 ;0FF LINE SHOULD NOT BE SET 
4065 023642 ¢20102 CMP R1,R2 sTHEY SHOULD BE EQUAL 
4066 023644 001406 BEQ 26% ;8R, IF OFL IS NOT SET 
4070 023646 ERROF ERRNO, T290FL,EXPREC ;ORIVE IS OFF LINE 
023646 104455 TRAP  CSEROF 
023650 000147 .WORD 103 
023652 [WORD T290FL 
023654 015554 \ "WORD EXPREC 
4071 023656 004737 017262 JSR PC. CKDROP ;TRY AND DROP DRIVE 
4072 023662 004737 011074 26%: JSR PC. REWIND ;CALL TAPE REWIND COMMAND 
4073 023666 016501 000002 MOV TSSR(RS),R1 ;GET TSSR 
4074 023672 012702 000200 MOV @SSR,R2 3SET UP EXPECTED TSSR 
4075 023676 103407 BCS 308 ‘BR. IF NO PROBLEN 
4076 023700 010004 MOV RO,R4 ;PACKET ADDRESS SET UP 
4077 023702 005237 002214 INC FATFLG sERROR COUNT 
4081 023706 ERRHRD ERRNO, T29RWN,PKTSSR sREWIND NOT ACCEPTED 
023706 104456 TRAP CSERHRO 
023710 000150 .WORD 104 
023712 0 "WORD T29RWN 
023714 012126 "WORD PKTSSR 
4082 023716 30%:  CKLOOP ;LOOP IF SELECTED 
023716 104406 TRAP —- CSCLP1 
4083 023720 013701 026250 MOV T29BFR+6,R1 ;PICK UP XSTO 
4084 023724 010102 MOV R1,R2 3SET UP EXPECTED 
4085 023726 052702 000002 BIS @81T1,R2 SET BOT BIT_IN EXPECTED 
4086 023732 020102 CMP R1,R2 ;DOES EXP = REC'D 
4087 023734 001406 BEQ 40$ i8R, IF EQUAL COK) 
4088 023736 005237 002214 INC FATFLG ERROR COUNT 
4092 023742 ERRHRD ERRNO, T29B0T, EXPREC ;TAPE NOT AT BOT AFTER REWIND 
023742 104456 TRAP § CSERHROD 
023744 000151 .WORD 105 
023746 027676 "WORD T2980T 
023750 015554 "WORD EXPREC 
4093 023752 40%:  CKLOOP ;LOOP IF SELECTED 
023752 104406 TRAP = CSCLP1 
4094 023754 013737 003116 026342 MOV FREE, T29R8 sADDRESS OF READ BUFFER 
023762 012737 141011 026340 MOV #141011, T29eKs iMRITE TAPE MARK RETRY.CVC*1,ACK COMMAND 
4096 023770 012704 026340 MOV @T29PK3.R sSET UP _R4 WITH PACKET ADORESS 
4097 023774 010465 000000 MOV R4, TspecRs) s ISSUE C 
4098 024000 004737 016330 JSR PC; WA ;WAIT FOR SSR TO SET 





002214 


002214 


002214 
017262 


000017 


758: 


1708: 


999%: 


3¢ 


TSSR(RS 

essnisct6rt1 18272, R2 
R1,R2 

758 

FATFLG 

ERRNO, T29WDE , PKTSSR 


Sn eh . R1 
@681T10,R2 

R1,R2 

170% 

FATFLG 

ERRNO, T29NEF , EXPREC 


R3 
26% 


FATFLG,@15. 
PC ,CKDROP 


rTEST 1, SUBTEST 2 
VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE 


sIS POSITI 


sGET TSSR CONTENTS 
SET UP EXPECTED 
rARE THEY EQUAL 
g 
ERROR COUNT 
:TSSR INCORRECT AFTER READ DATA 
TRAP C8 
.woRD 1 
“woRD «oT 
oop IF SELECTED ‘ — 
sl 
TRAP —- CSCLP1 
:GET XSTO STATUS WORD 
;SET UP EXPECTED 
SET NEF BIT 
;ARE THEY EQUAL 
;8R, IF EQUAL (GOOD) 
;ERROR COUNT 
;NEF SHOULD BE SET 
TRAP  CSERHROD 
.WORD 107 
"WORD T2ONEF 
“WORD EXPREC 
;RESET THE SWITCH 
;8R, IF FIRST TIME THROUGH HERE 
10037: 
CsESuUB 


sIS ERROR COUNT AT 25 
s8R, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


ONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) RESULTS IN 
pha STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT 


ERRNO, SFIERR , SFIMSG 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
2: 
Csesus 


sSET COMMAND PACKE 
UP_OTHER 

300 INITIALIZE ON CONTROLLER 
IF INIT WAS OK 


;CONTENTS OF 
FATAL ERROR T 


COUNT 
TSSR REGISTER 
SSR WAS NOT OK 
TRAP CsEROF 


SEQ 0103 





TEST 1 - HAROWARE TEST 1-8 TEST MACRO YOS.02 Tuesday 17-Sep-85 11:22 Page 76-3 


TEST i: WRITE TAPE MARK RETRY 


024146 000154 
024150 00 
0241 Stet 4 
4151 024154 013737 002174 026240 20%: 
4153 024162 012704 026220 
4154 024166 004737 010742 
4155 02417 s03e07 
4156 02417: 37 002214 
024200 010001 
4161 024202 
gens 
iss 
024210 012114 
4162 25%: 
onesie 104406 
4163 024214 004737 011074 268: 
64 024220 C165S01 000002 
sosee 0127 000200 
166 0242 10340 
4167 024232 010004 
024234 005237 002214 
4172 024240 
024240 104456 
024242 0001 
O26264 
024246 012126 
4173 024250 308: 
024250 1 
4174 024252 013701 026250 
4175S 024256 010102 
4176 024260 702 000002 
4177 024264 020102 
Size 024266 001406 
pt hey ps oy Sag 37 002214 
poet 104456 
O2a809 SereTe 
027676 
024302 0 
41864 024304 012737 000001 026342 40%: 
4165 peat te 012737 000400 026346 
rt] 012737 140005 026340 
4167 024 0 340 
HS ee See 
sige osesas 016501 00002 
Sh ckel Gisreg Sees 
4193 024 00. . 
oS 0 026250 
4195 024 703 000004 
rt 001405 
024370 1044 
024372 000157 


io] 
o 
w 


press ; 


gonebtesneeee8 


UNITN, T290SW 


@T29PACKET ,R4 
PC ,WRTCHR 


25 
FATELG 
ERRNO, WRTMSG, SFIMSG 


PC REWIND 
TSSRCRS) RI 
@SSR,R2 


RO,R4 
FATFLG 
ERRNO, T29RWN, PKTSSR 


T298FR+6,R1 
@8iT1,R2 

R1,R2 

403 

FATFLG 

ERRNO, T2980T . EXPREC 


#1, T29R8 
3740053: Yosens 
OT29PK3. RE 

R4, TSOBCRS) 
TSSA(RS).RI 

Ri Re 


ERRNO, T29MLK , SF IMSG 





1SET UP UNIT NUMBER 
INE NEEDS PACKET 


sBR, COMMAND 
sERROR 
sSAVE CONTENTS 


sLOOP IF SELECTED 
sCALL TAPE REWIND COMMAND 
1GET TSSR 
3SET UP EXPECTED TSSR 
30°, IF NO PROBLEM 
sPACKET ADDRESS SET UP 

, COUNT 
;REWIND NOT ACCEPTED 


TRAP 
. WORD 
- WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 
sPICK UP XSTO 
sSET UP CTED 
sSET BOT BIT zm, poe 


sD0ES EXP 
3s8R, IF EQUAL (OK) 
a COUNT 
sTAPE NOT AT BOT AFTER REWIND 


TH NORMAL ERROR 


NO, PROCEED 
TAPE IS WRITE LOCKED 


—_—, 


SEQ 0104 


s SUBROUT ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
ISSUED OK 


CsE€ROF 
iui 
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“TEST 1: WRITE TAPE MARK RETRY 


| 
024374 027544 
024376 012114 
| 4198 024400 
024400 104444 
| 4199 024402 005237 002214 
4203 024406 
024406 104456 
024410 000160 
024412 027631 
024414 012126 
4204 024416 
024416 104406 
4205 024420 012737 000001 026342 
4206 024426 012737 140410 026340 
UP SPACE REVERSE 
7 34 012704 026340 
010465 000000 
4 004737 016330 
4210 024450 16501 000002 
4211 024454 012702 000200 
4212 102 
4215 001406 
4214 0 005237 002214 
4218 024470 
024470 104456 
024472 000161 
024474 027 
024476 012126 
4219 024500 
4220 024502 013737 003116 026342 
4221 024510 012737 141011 026340 
4222 024516 012704 026340 
4223 024522 010465 000000 
324 024526 004737 016330 
4225 024532 016501 000002 
326 024536 012702 100204 
4227 024542 020102 
4228 024544 001406 
4229 024546 005237 002214 
4233 024552 
024552 104456 
024554 000162 
024556 027462 
024560 012126 
4234 024562 
024562 
4235 024564 013701 026256 
536 024570 010102 
4237 024572 052702 000001 
4238 024576 020102 
4239 024600 001406 
4240 024602 005237 002214 
4244 024606 
024606 104456 
024610 00016 
024612 031624 
024614 015554 


418: 


7S$: 


17S$: 


180%: 


DOCLN 


FATFLG 
ERRNO, T29WRT ,PKTSSR 


#1, T29RB 
#140410, T29PK3 
@T29PK3,R4 

R4, TSDBCRS) 

PC; WAITF 

TSSR(RS),R1 

@SSR.R2 

175$ 

FATFLG 

ERRNO, T29WDE ,PKTSSR 


FREE , T29RB8 
#141011, T29PK3 
OPK3,R4 


¢ Ri 
@SSR!SC!61T2,R2 
R1,R2 


180% 
FATFLG 
ERRNO, T29WDE , PKTSSR 


Mt pl oR1 
aio. »R2 


FATFLG 
ERRNO, T29RIB ,EXPREC 


SEQ 0105 
WORD T29WLK 
“WORD © SFIMSG 
sDROP IT ' 
TRAP —C$DCLN 
i ERROR COUNT | 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD | 
WORD 112 
"WORD ©‘ T2OWRT 
| "WORD PKTSSR 
:LOOP IF SELECTED 
TRAP _CSCLP1 
:NUMBER OF RECORDS TO SPACE OVER | 
;SET UP COMMAND IN APCKET sSE 
sSET UP R4 WITH PACKET ADDRESS 
: 


sARE THEY 
BR, IF OK 
COUN 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 13 
«WORD T29WDE 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 


sADDRESS OF BUFFER 
sWRITE TAPE MARK RETRY,ACK,CVC=1 COMD. 
;SET UP _R4& WITH PACKET ADORESS 


s ISSUE COMMAND 

iWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 
EQUAL 


;ARE THEY 
;B8R, IF OK 
sERROR COUNT 

:TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 114 
-WORD T29WDE 
-WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

:GET XST3 STATUS WORD 

;SET UP EXPECTED 

;SET THE RIB BIT 

;ARE THEY EQUAL 

;8R, IF EQUAL ( 

sERROR COUNT 

NEF BE SET 
TRAP CSERHRD 
. WORD 15 
-WORD T29RIB 
-WORD EXPREC 
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TEST 1: WRITE 


4286 





TAPE MARK RETRY 


004737 
103426 


000000 
013727 
000000 


012114 
104406 


002116 
177772 
177756 
026400 
002214 


002174 
026220 
010742 
002214 


1908: 


002214 000017 
017262 


999%: 
s¢ 


FATFLG,@15. 
999 
PC ,.CKDROP 


:TEST 1, SUBTEST 3 
ty nee THAT A WRITE TAPE MARK RETRY ee TERMINATES 


ic 
3 
go 


026400 
10$: 


026240 20%: 


23%: 


Y AND WRITES THE TAPE MARK ONTO T 
OMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK=1). 


JSR 
scs 
INC 


MOV 
ERRHRD 


CKLOOP 


PC. T29REST 
S »T29RT2 

90L 
oi . SOF INIT 
250 


T290LY 

10% 

FATFLG 

RO,R1 

ERRNO, SFIERR , SF IMSG 


UNITN, T290SW 
@T29PACKET ,R4 
PC. WRTCHR 
23% 
FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 
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SEQ 0106 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


TRAP 
sIS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


APE (BY ISSUING A READ REVERSE 


CsESuB 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T1.3: 


TRAP 
+SET COMMAND PACKET 
OTHE 


:00 INITIALIZE. ON CONTROLLER 
:BR IF INIT WAS 
;DELAY ABOUT .25 SECONDS 


;BUMP DELAY ROUTINE DOWN 
BR, IF MORE DELAY TIME LEFT 
sERROR COUNT 

s CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS sa | OK 


. WORD 

. WORD 

WORD 
;SET UP DRIVE NUMBER 
sSUBROUTINE NEEDS 
sISSUE WRITE CHARACTERISTICS 
:BR, COMMAND see OK 


sERR 
; SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC F i 


;LOOP IF SELECTED 


PACKET ADDRESS 


CsBSUB 


#250,(PC)« 
LSOLY,(PC)+ 
eecpc) 
-22¢PC) 
.=20 


CsCLP1 


mi i a re ee a ee -  - 


TEST 1: WRITE 


20 
4336 025222 


011074 
000002 
002214 


002214 


140011 
026340 


000000 
016330 
000002 
000200 


002214 


000001 
141011 
026340 
000000 
016330 
000002 
0v0200 


002214 


02€340 


026340 


708%: 


150$: 


155$: 


165$: 


CKLOOP 
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TAPE MARK RETRY 


* 5 amet 
TSSRCRS),R1 
RO,R4 


FATFLG 
ERRNO, T29RWN,PKTSSR 


T29BER+6, RL 
eeiti. R2 
R1,R2 


FLG 
ERRNO T2980T .EXPREC 


pi moo dl & T29PK3 
@T29PK3 ,R4 

Bee TSDBCRS) 

TSSRCRS),R1 

@SSR ,R2 

R1,R2 


70$ 
FATFLG 
ERRNO, T29WOC ,PKTSSR 


#1.,R3 
#141011, T29PK3 
4g 4 


165 
FATFLG 
ERRNC, T29WOC ,PKTSSR 


sCALL_TAPE REWIND COMMAND 
;8R, IF NO PROBLEM 


3GE SSR 
sSAVE PACKET ADDRESS 


sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
WORD 1 


* 18 
~- WORD T29RWN 
WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPi 
sPICK UP XSTO 
sSET UP EXPECTED 
3SET BOT BIT IN EXPECTED 
;00ES a4 = REC'D 
3BR, “7. (OK) 
- RROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 119 
- WORD T2980T 
-WORD EXPREC 
;LOOP IF SELECTED 
AP CsCLPi 
sWRITE TAPE MARK,ACK,CVC=1 COMMAND 


;SET UP R4 WITH PACKET ADDRESS 


GET TSSR CONTENTS 

iSET UP EXPECTED 

SARE THEY EQUAL 

i8R, IF OK 

ERROR COUNT 

:TSSR INCORRECT AFTER WRITE TAPE MARK 
TRAP CSERHRD 
‘WORD 120 
“WORD  T29uDC 
WORD PKTSSA 


;LOOP IF SELECTED , 
TRAP CscLPi 
;NUMBER OF RECORDS TO WRIT 


E— 1 
sWRITE TAPE MARK RETRY,ACK,CVC=1 COMMAND 
ADORESS 


sSET UP _R4 WITH PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sPICK UP TSSR 

:SET UP Ba (SSR ONLY) ~ 
sWAS STATUS GOOD 

BR, IF ew et yc GooDd 


OR COUN 
LTSSR NOT CORRECT AFTER WRT TAPE 1 


TRAP CSERHROD 
TWoRO 121 
-WORD T29WDC 
-WORD PKTSSR 


;LOOP IF SELECTED 





SEQ 0107 


— eee ee 
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TEST 1: WRITE TAPE MARK RETRY 

02522. TRAP = CSCLP1 

4337 025224 012737 140401 026340 Mov #140401, T29PK3 ;READ REVERSE,ACK, COMMAND 

338 025232 013737 003116 026342 MOV FREE, T29R8 ;NUMBER OF RECORDS TO SPACE BACK 

4339 025246 012704 026340 MOV 3 SET UP R4 WITH PACKET ADORESS 

340 025244 010465 000000 MOV R4, TSOBCRS) sISSUE C 

4341 025250 004737 016330 JSR PC, WATTE ;WAIT FOR SSR TO SET 
025254 016501 000002 MOV TSSR(RS) :GET TSSR CONTENTS 

4343 025260 012702 100204 MOV eseniscs61T2.R2 :SET UP EXPECTE 
025264 102 CMP »R2 ;ARE THEY E 
025266 001406 BEQ 222 :6R, IF 

4346 025270 37 002214 INC FATFLG ERROR COUNT 

4350 025274 ERRHRD ERRNO, T29RDG,.PKTSSR :TSSR INCORRECT AFTER SPACE | CMD. 
025274 104456 CSERHRD 
025276 172 WORD 122 
025300 031543 "wORD iT 
025302 012126 “wORD PKTSSR 

4351 025304 222%:  CKLOOP ;LOOP IF SELECTED 
025304 1044 TRAP = CSCLP1 

4352 025306 C13701 026250 MOV T29BFR+6,R1 sPICK UP XSTO 

4353 025312 010102 MOV R :SET UP EXPECTED 

4354 025314 052702 100000 BIS @81T15,R2 ;TMK SHOULD BE SET 

4355 025320 020102 CMP R1,R2 :IS TMK SET 

4356 025322 001406 BEQ 226% ;8R, IF TMK WAS SET (GOOD) 

4357 025 005237 002214 INC FATFLG ;ERROR COUNT 

4361 025330 ERRHRD ERRNO, T29RRN, EXPREC ;TMK NOT SET AFTER READ REV 
025330 104456 TRAP § CSERHRD 
025332 000173 .WORD 123 
025334 031724 "WORD T29RRN 
025336 015554 "WORD EXPREC 

4362 025340 226$:  CKLOOP ;LOOP IF SELECTED 
025340 104406 TRAP = CSCLP1 

4363 342 ENDSUB 3<<¢¢¢¢¢¢¢¢¢ END SUBTEST >>>>>>>>>>> 
025342 110041: 
025342 10440 TRAP CSESUB 

4364 025344 023727 002214 000017 CMP FATFLG, 015. :IS ERROR COUNT AT 25 

4365 025352 103402 BLO ;8R, IF LESS THAN 25 

4366 025354 004737 017262 JSR PC, CKDROP ;TRY TO DROP THE UNIT 

4367 9998: 

4368 3¢ 

4369 3 

4370 sTEST 1, SUBTEST 4 

: 

4372 ;VERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE 

4373 sRETRY OPERATION IS PERFORMED BY REWINDING THE TAPE, ISSUING SEVERAL 

4374 APE MARK RETRY COMMANDS I CESSION, THEN ISSUING TWO SPACE 

4375 RECORDS REVERSE COMMANDS IN SUCCESSION. ECOND SPACE RECORDS REVERSE 

4376 ;COMMAND SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET 

: 3 

4378 3- 

4379 025360 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
025360 71.4: 
025360 104402 TRAP  C$BSUB 

4380 025362 004737 032046 JSR PC, TO9REST SET COMMAND PACKET 

4381 025366 004737 032140 JSR PC. T29RT2 :SET UP OTHER COMMAND PACKET 

4382 025372 004737 032202 JSR *T29RTS 3SET UP OTHER COMMAND PACKET 

4383 025376 012737 023420 026400 MOV #10000. , T29DLY ;SET UP DELAY ROUTINE 

4384 025404 004737 016054 10%: JSR PC, SOFINIT D0 INITIALIZE ON CONTROLLER 


SEQ 0108 


—————— 
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SEQ 0109 
TEST 1: WRITE TAPE MARK RETRY 
4385 025410 103426 Bcs 20% ;6R IF INIT WAS OK 
4386 025412 DELAY 250 sDELAY ABOUT .25 SECONDS 
025412 012727 000250 MOV #250, (PC )+ 
025416 000000 -WORD O 
025420 013727 002116 MOV LSOLY,CPC)+ ! 
025424 000000 -WORD O- | 
025426 005367 177772 DEC -6(PC) 
025432 001373 BNE -: } 
025434 005367 177756 DEC -22(PC) 
025440 001367 BNE --20 
4387 025442 0053537 026400 DEC T290LY sBUMP DELAY ROUTINE DOWN 
a 025446 0013556 BNE 10% sB8R, IF MORE DELAY TIME LEFT 
4389 025450 005237 002214 INC FATFLG sERROR COUN 
4393 025454 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
4394 025456 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
025456 104455 TRAP CsEROF 
025460 000174 - WORD 
025462 00 -WORD SFIERR 
025464 C12114 -WORD  SFIMSG 
4395 025466 013737 002174 026240 20%: MOV UNITN, T290SW sSET UP DRIVE NUMBER 
4396 025474 012704 026220 MOV @T29PACKET ,R4 sSUBROUTINE NEEDS PACKET 
4397 025500 737 010742 JSR PC, ,WRTCHR SISSUE WRITE CHARACTERISTICS 
4398 025504 103407 BCS 23% :BR, COMMAND ISSUED OK 
4399 025506 005237 002214 INC FATFLG 3 
4403 025512 010001 Vv RO,R1 sSAVE CONTENTS OF TSSR 
025514 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
025514 104456 TRAP CSERHRD 
025516 000175 -WORD 125 
025520 0050 -WORD  WRTMSG 
O25S22 012114 -WORD SFIMSG 
4405 025524 23%: CKLOOP sLOOP IF SELECTED 
025524 104406 TRAP CsCLPi 
4406 025526 004737 011074 JSR PC ,REWIND ;CALL_TAPE REWIND COMMAND 
4407 025532 103411 BCS 30$ :BR, IF NO PROBLEM 
4408 025534 016501 000002 MOV TSSRCRS).R1 :GET TSSR 
025540 010004 MOV RO,R4 sSAVE PACKET ADDRESS 
4410 025542 005237 002214 INC FATFLG sERROR COUNT 
4414 025546 ERRHRD ERRNO, T29RWN,PKTSSR sREWIND NOT ACCEPTED 
025546 104456 TRAP CSERHRD 
025550 000176 -WORDB 1 
025552 030, -WORD T 
25554 012126 -WORD PKTSSR 
4415 0255 30$: CKLOOP sLOOP IF SELECTED 
025556 TRAP CsCLP1 
4416 025560 013701 026250 MOV T29BFR+6,R1 sPICK UP XST 
4417 025 010102 MOV Ri, sSET UP EXPECTED 
44186 025 052702 000002 BIS #BIT1,R2 sSET BOT BIT IN EXPECTED 
4419 025572 020102 CMP R1,R2 ;DOES EXP = REC'D 
4420 025574 001406 BEQ 40% 3BR, IF EQUAL (OK) 
4421 025576 005237 002214 INC FATFLG ;ERROR COUNT 
025602 ERRHRD ERRNO, T29B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
025602 104456 TRAP CSERHRD 
025604 00017 -WORD 127 
025606 027676 -WORD T29B0T 
025610 015554 WORD EXPREC 
4426 025612 40$: CKLOOP sLOOP IF SELECTED 


fae 
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TEST 1: WRITE 


| 


4427 025614 
4428 025622 
4429 025626 


TAPE MARK RETRY 


012737 


140011 
026340 


000000 
016330 
000002 
000200 


002214 


000012 
000001 
141011 
026340 
000000 
016330 
000002 
000200 


002214 


100410 
000005 
026340 
000000 


026340 


026342 
026340 


026340 
026342 


026340 
026342 


70%: 
150%: 


155%: 


165$: 


2228: 


#140011, T2 , T29PK3 
Ra. TS -TSDBCRS) 
TSSRCRS), R1 
@SSR,R2 


70% 
FATFLG 
ERRNO, T29WDC , PKTSSR 


#10. ,R3 

#1, T29RB 

#141011, T29PK3 
9PKS,.R4 

PCW 

TSSRCRS),R1 

@SSR ,R2 

R1,Re 


FATFLG 
ERRNO, T29WOC ,PKTSSR 


R3 

155$ 

#140410, T29PK3 
® ORB 


TSSR(RS),R1 
@SSR!SC!BIT2,R2 
R1,R2 


FATFLG 
ERRNO, T29WDE , PKTSSR 


#100410, T29PK3 
05, T29R6 


@T29PK3,R4 
R4, TSOBCRS) 


ee ee 


SEQ 0110 


sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
sSET UP_R4 WITH PACKET ADDRESS 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 


sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY E 

3BR, IF 

OR COUNT 

sTSSR INCORRECT AFTER WRITE TAPE MARK 
TRAP CSERHRD 
-WORD 128 
-WORD T29WOC 
WORD PKTSSR 

;LOOP IF SELECTED 

CSCLPi 


TRAP 
sNUMBER OF RECORDS TO WRITE TM 
iSET UP_PACKET 
sWRITE TAPE MARK RETRY,.ACK,CVC=1 COMMAND 
+t R4 WITH PACKET ADDRESS 


sSET UP EXPECTED (SSR ONLY) 

sWAS STATUS GOOD 

:BR, IF a ah bm WAS GOOD 
RROR COUNT 


OR 
STSSR NOT CORRECT AFTER WRT TAPE N. 


AP C#ERHRD 

-WORD 129 
-WORD T29WDC 
-WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

3;BUMP 

;8R, IF LESS THAN 10 TAPE MARKS 

sSPACE REVERSE.ACK, weceks COMMAND 

sNUMBER OF RECORDS TO SPACE BACK 

iSET UP R4 WITH PACKET ADDRESS 

sISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

3 THEY E 

;68R, IF OK 

sERROR COUNT 

sTSSR INCORRECT AFTER SPACE CMD. 
TRAP CSERHRD 
-WORD 130 
-WORD T29WDE 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 


sSPACE REVERSE.ACK, COMMAND 
sNUMBER OF RECORDS TO SPACE BACK 
;SET UP R4 WITH PACKET ADDRESS 
sISSUVE COMMAND 
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SEQ 0111 
TEST 1: WRITE TAPE MARK RETRY 
4478 026070 004737 016330 JSR PC ,WAITF sWAIT FOR SSR TO SET 
4479 026074 016501 000002 MOV TSSRCRS) R1 sGET TSSR CONTENTS 
4480 026100 012702 100204 MOV @SSR!SC 16IT2,R2 sSET UP EXPECTED 
4481 026104 020102 CMP R1,R2 sARE THEY EQUAL | 
4482 026106 001406 BEQ 260% 3BR, IF 
4483 026110 005237 002214 INC FATFLG ERROR COUNT 
4487 026114 ERRHRD ERRNO, T29RDOG,PKTSSR :TSSR INCORRECT AFTER SPACE REV CMD. 
026114 104456 TRAP CSERHRD 
026116 203 - WORD 31 
26120 0315435 - WORD 
026122 012126 -WORD PKTSSR 
4488 026124 2608: CKLOOP sLOOP IF SELECTED 
026124 104406 TRAP CSCLP1 
4489 026126 013701 026256 MOV T29BFR+14,R1 sPICK UP XST3 
4490 026132 010102 MOV Ri, sSET UP EXPECTED 
4491 026134 052702 000001 BIS #BITO,R2 sRIB SHOULD BE SET 
4492 026140 020102 CMP R1,R2 :IS RIB SET 
4493 026142 001406 BEQ 270% ;6R, IF RIB WAS SET (GOOD) 
4494 026144 C0S237 002214 INC FATFLG sERROR COUNT 
4498 026150 ERRHRD ERRNO, T29RIB,EXPREC ;TMK NOT SET AFTER READ REV 
026150 104456 TRAP CSERHRD 
026152 000204 «WORD 132 
026154 031624 - WORD T29RIB 
026156 015554 WORD EXPREC 
4499 026160 2708: CKLOOP ;LOOP IF SELECTED 
026160 104406 TRAP CSCLPi 
4500 026162 3308: CKLOOP ;LOOP IF SELECTED 
026162 104406 TRAP CSCLP1 
4501 026164 ENDSUB 3<<<¢¢<¢¢<¢¢¢<¢ END SUBTEST >>>>>>>>>>> 
026164 L10042: 
026164 104403 TRAP CsESUB 
4502 026166 023727 002214 000017 CMP FATFLG, #15. :IS ERROR COUNT AT 25 
4503 026174 103402 BLO 999% ;BR, IF LESS THAN 25 
4504 026176 004737 017262 JSR PC,CKDROP sTRY TO OROP THE UNIT 
4505 026202 999%: 
4506 3 
4508 
3 
4509 026202 004737 016536 JSR PC, TSTLOOP 300 WE NEED TO ITERATE TEST 
4510 026206 103002 BCC 163% 3;68R, IF NO LOOP REQUIRED 
4511 026210 000137 023462 JMP T29L00P sEXECUTE AGAIN 
4512 026214 163$: EXIT TST sALL DONE THIS TEST 
026214 104432 TRAP CSEXIT 
4513 026216 004014 . WORD L10036-. 
3¢ 
tte sLOCAL STORAGE FOR THIS TEST 
4519 026220 T29PACKET: sCOMMAND PACKET FOR TEST 
4520 026220 014004 WORD 14004 sWRITE CHARACTERISTICS COMMAND, WITH CVC=1, ACK 
4521 026222 026230 . WORD T29DATA sADDRESS OF CHARACTERISTICS BLOCK 
4522 026224 000000 . WORD c¢] 
4523 026226 000012 WORD 10. sSTARTING VALUE OF BLOCK SIZE 
4524 026230 T29DATA: sCHARACTERISTICS DATA BLOCK 
4525 026230 026242 .- WORD T29BFR sADDRESS OF MESSAGE BUFFER 
4526 026232 000000 «WORD O 
4527 026234 000024 WORD 20. ;LENGTH OF MESSAGE BUFFER 


4528 026236 000000 -WORD O 
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SEQ 0112 
| TEST 1: WRITE TAPE MARK RETRY 
4529 026240 000000 T290SW: .WORD 0 ;SELECT DRIVE 0 
4330 26242 T298FR: {BLKW 25. MESSAGE BUFFER | 
o 
4332 WRITE SUBSYSTEM MEMORY COMMAND PACKET 
4535 026330 ‘ _@¢, 61026177770 
4537 026330 T29PK2: 
4538 026330 100006 WORD 100006 }WRITE SUB SYS MEM COMMAND, AND 
4539 026332 026350 “WORD  T298F2 }ADDRESS OF SELECT BLOCK DATA 
4540 026334 000000 "WORD 0 
4341 026336 000006 "WORD 6. ;SIZE OF DATA PACKET 
4546 026340 T29PK3: 
4547 026340 140005 WORD 140005 }WRITE TAPE MARK RETRY COMMAND, CVC*1 AND ACK 
4548 026342 T29RB: 
4549 026342 003116 T29WB: .WORD FREE ;ADDRESS OF WRITE BUFFER 
4550 026344 000000 “WORD 0 
4551 026346 000000 T29SZ: [WORD 0 ;SIZE OF BUFFER (EXTENT) 
4552 EVEN 
4553 3 
4554 3 
4s5sS 
4556 026350 fo0BF2: 
4557 026350 010 T298S0: .BYTE 10 ;BSELO AREA 
4558 026351 200 T298S1: :BYTE 200 ;BSEL2 AREA 
4559 026352 000000 T29S2:, ‘WORD 0 SEL 2 AREA 
4360 026354 000000 T2983: [WORD 0 DATA AREA 
rf 
4562 i 
4563 EVEN 
4564 ;TAPE MOTION PACKET COMMAND VALUES 
4566 026356 140001 T29RN: .WORD 140001 READ DATA 
4567 026360 140401 T29WOR: [WORD 140401 }READ DATA REVERSE 
4568 026362 141001 T29CON: [WORD 141001 ‘READ PREVIOUS OPP=0 
4569 026364 161001 "WORD 161001 READ PREVIOUS OPP=1 
4570 026366 141401 "WORD 141401 ;WRITE TAPE MARK RETRY NEXT OPP=0 
4571 026370 161401 "WORD 161401 }WRITE TAPE MARK RETRY NEXT OPP=1 
4372 026872 177777 “WORD 177777 END OF DATA 
4574 
4375 026374 000000 T29CNT: .WORD 0 ;TAPE RECORD COUNTER STORAGE AREA 
4577 026376 000000 T29RSZ: .WORD 0 RECORD STORAGE SIZE AREA 
4378 026400 000000 T29DLY: [WORD ;DELAY COUNTER STORAGE AREA 
> 
4580 }LOCAL TEXT MESSAGES FOR TEST 
ist ; 
4583 026402 104 162 151 T290FL: .ASCIZ ‘Drive is OFFLINE’ 
4584 026423 124 141 , 160 TZOWNG: :ASCIZ. ‘Tape Position Incorrect After WRITE TAPE HARK RETRY Previous (OPP=1)* 
4585 026530 127 122° 111 T29NEF: (ASCIZ ‘WRITE TAPE MARK RETRY, At BOT. Failed To Set NEF (XSTO)' 
4586 026620 124 123° 123 TD2ORDF: [ASCIZ ‘TSSR Incorrect After READ DATA Command’ 
‘ 4587 026667 127 122 111 T29RRF: .ASCIZ ‘WRITE TAPE MARK RETRY Previous (Space Reverse, Read Forward) Command F 
| 4588 027003 127 122 111 T29RRG: .ASCIZ ‘WRITE TAPE MARK RETRY Previous (Read Forward, Spece Reverse) Commend Failed 
4589 027117 120 117 123 T29SC: .ASCIZ ‘POSITION (Space Command) Feiled, TSSR Not Correct’ 


4590 027201 122 111 102 T29LOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT‘ 
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TEST 1: WRITE TAPE MARK RETRY 


pi td 


027251 
027 


032140 
032140 


012701 


123 
154 


000030 
177777 
000000 


026242 


SEQ 0113 


tte ~y Bay fag = Illegel Mode Bits Set’ 
Td To Set ILC eit In XSTO’ 
WRITE TAPE RETRY COMMAND 


Not Accepted’ 
‘TSSR Not € Correct After ty REVERSE DATA Command’ 
‘eeeeeTAPE IS WRITE-LOCKED AND WILL CAUSE ERRORSseees' 
‘TSSR Not Correct After WRITE Commend’ 
‘Tape Not At « eer Bg A ea 
‘Date ein ne pore Me 1 To Date Read From Tape’ 
‘WRITE T RY SATA TOV OVER EOT GAVE NO TAPE STATUS ALERT’ 
‘TSSR Noe acca After SPACE REVERSE Into BOT’ 
‘Rewind (POSITION) Command Not Accepted’ 
‘RAM Error, Correct Dete Pattern Not In Ram 
‘TSSR tats. Failed After WRITE TAPE MARK RETRY COMMAND‘ 
‘Drive 7 Select Failed To Set “OFL” In 
‘TSSR Not Correct After WRITE TAPE MARK RETRY DATA Commend, SWB Bit Set’ 
'TSSR Not Correct After WRITE TAPE MARK wall DATA Command’ 
‘CVC Set. Didn''t Reset VCK In eqoage Otte 
RETRY. DATA Command’ 
‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
‘Reading Long Record Feiled To Set RLL Bit In XSTO’ 
‘Reading “Bye Record Failed To Set RLS Bit In XSTO’ 
‘Residual Byte Count Incorrect After Short Record Read’ 
eet Me Record Failed To Give Tape Stetus Alert’ 
‘Date WRITE TAPE MARK RETRY From T Not Correct, After SWB-1' 
‘TSSR Incorrect After READ REVERSE Into Tape Mark’ 
‘WRITE TAPE MARK RETRY At First Record, Failed To Set RIB (xXST3)* 
"TMK CXSTO) Failed To Set After READ REVERSE Into Tape Mark 
-ASCIZ ‘Write Tape Mark Retry’ 


;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T29REST: 


64%: 


T29RT2: 


sSAVE_ THE re bared 


@T29PACKET,R1 sSTART OF THE PACKET 
#140004, (Ri)+ sWRITE SUBSYSTEM MEM. WITH ACK, CVC#1 
@T29DATA, (R1)+ sADORESS OF CHARAISTICS DATA BLOCK 
cR1)+ EXTENDED ADDRESS 

10. ,(R1)+ :S1ZE OF DATA BLOCK IN BYTES 
e1208FR.(R)> sADDRESS OF MESSAGE BUFFER 

+ 
#20, .(R1)s ;LENGTH OF MESSAGE BUFFER 

e 
@0,(R1) sSELECT ORIVE ZERO (0) 
024. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
0177777, T29BFR(R2) sALL ONES TO MESSAGE BUFFER 
-(R2) sNEXT LOCATION 
R2,00 ;CHECK FOR END OF LOOP 
643 ;KEEP GOING UNTIL DONE 
PC ;RETURN 


sSAVE THE REGISTERS 


ae 


| TEST 1 - HARDWARE TEST 1-8 TEST MACRO YOS.02 Tuesday 17-Sep-85 11:22 


| TEST 1: WRITE 
4648 032144 


TAPE MARK RETRY 


012701 


012737 
012700 


004737 
012737 


MOV @T29PK2,.R1 
MOV #140006, (R1)+ 
MOV @T29BF2,CR1)+ 
CLR CR1)+ 
MOV @6.,CR1)+ 
CLR (Rid+ 
MOV @T298F2,R1 
CLR CR1)-+ 
CLR CR1i) 
RTS PC 
T29RTS: 
SAVREG 
MOV @T29PK3,R1 
MOV #0,(R1)+ 
MOV @0,CR1)+ 
CLR CR1i)- 
MOV #0,(R1) 
RTS c 
ENOTST 


-SBTTL TEST 2: 


3¢ 


SKIP TAPE MARKS 


Page 76-13 


sSTART OF THE PACKET 
sWRITE SUBSYSTEM MEM. WITH ACK,CVC#1, 
DATA BLOCK 


sADDRESS OF 
i EXTENDED 


ADORESS 
sSIZE OF DATA BLOCK IN BYTES 
sPOINT TC DATA SEL AREA 


sRETURN 


sSAVE_THE REGISTERS 
START OF THE PACKET 


E 
sWRITE SUBSYSTEM MEM. WITH ACK, 
ADORES BLOCK 


3 S OF DATA 
sEXTENDED ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 
sRETURN 


L10036: 


i THIS ee oxu't PROPER OPERATION OF THE SKIP TAPE MARKS 


sFOLLOWING 


CONSIST 


TES 
;WITH AN APPROPRIATE SERIES OF DATA RECORDS AND/OR T 


3AND/OR 
3 


DOUBLE TAPE MARKS. 


: 
sTHE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 


BGNTST 

MOV @EPRT1,EPRTSW 
MOV @TST3OID,RO 
JSR PC. TSTSETUP 
MOV @S,LOOPCNT 


3¢ 


iTEST 2. SUBTEST 
: 


i VERIFIES THAT A SKIP TAPE MARKS FORWARD 
MARK COUN! 


3A TAPE 

iIS FIRST RE 

oa FILE Onst> 
sFOLLOWED BY 


* a 
: TERMINATED By A ‘DOUBLE TAPE MARK. EACH DAT 
sCONTAINS A 


1 


sPRIMARY ERROR 


MESSAGE 
SASCII MESSAGE TO IDENTIFY TEST 
:00 TEST SETUP 


NITIAL 
1PE 


COMMAND WITH 


TEST, THE TAPE IS on WRITTEN 
APE MARKS 


ORM S ITERATIONS 


OF 1 OPERATES OPERATES PROPERLY. THE TAPE 


ts 


"HEN WRITTEN WITH SEVERAL “FILES”; 
tt Rm NUMBER OF DATA RECORDS 


DA 
THE FINAL FILE I 


A_RECORD 


FILE NUPBER AND THE RECORD NUMBER WITHIN 


TRAP 


NABLE SKIP TAPE MARKS 
S STOP OFF BOT CENB) BITS SPECIFIED 
s THE TEST S OF THE 
EACH SUB 


CsETST 


SEQ 0114 
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SEQ@ 0115 
TEST 2: SKIP TAPE MARKS | 
| 4706 sTHE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY } 
4707 i VERIFIED BY rent esd THE DATA. THE TAPE IS AGAIN | 
4708 sREWOUND AND A SERIES OF SKIP TAPE MARKS FORWARD | 
i 4709 sCOMMANOS ARE ISSUED AND THE RESULTS (TAPE STATUS ALERT 
4710 i TERMINATION, TMK=i STATUS, TAPE POSITION VIA REAL 
4711 3s COMMAND ) 3 CHECKED. PRIOR TO ISSUANCE OF EACH SKIP 
4712 3: COMMAND WRITE CHARACTERISTICS COMMAND IS ISSUED TO 
4713 3SET UP ie ESS ANO ENB CONTROL BITS. ALL 
4714 sCOMBINATIONS OF ESS AND ENB ARE USED (00,01,10, 
4715 sti) urs Sus pop ol SHOULD BE THE SAME IN EACH CASE FOR 
4716 TEST. 
4717 ” 
4718 3 
4719 s- 
4720 
4721 032260 T3OLOOP : 
4722 032260 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
032260 T2.1: 
032260 104402 TRAP cs6SuB 
4723 032262 004737 041152 JSR PC, T3OREST sSET COMMAND PACKET 
4724 032266 005037 036554 CLR T3OFCN sCLEAR FILE COUNTER 
4725 032272 004737 041244 JSR PC, T3ORT2 sSET UP OTHER COMMAND PACKET 
4726 032276 004737 041306 JSR PC, T3ORTS 3SET UP pay COMMAND PACKET 
4727 032302 012737 176750 036556 MOV 6 -» TSODLY sSET UP DELAY COUNTER 
4728 032310 004737 016054 108: JSR PC, SOFINIT 3:00 earn ON CONTROLLER 
4729 032314 103426 6cs 20% ;8R IF INIT WAS OK 
4730 032316 DELAY 250 iDELAY ROUTINE CALL 
032316 012727 000250 MOV #250,(PC)+ 
032 000000 - WORD 
032 013727 002116 MOV LSOLY,CPC)« 
032330 000000 . WORD 
032332 005367 177772 DEC -6(PC) 
032336 001375 BNE .-4 
032340 005367 177756 DEC -22¢PC) 
032344 001367 BNE --20 
4731 032346 337 036556 DEC T3OOLY sBUMP COUNTER 
4732 032352 001356 BNE 10% 3;6R, IF ~~! COUNTING TO DO 
4733 032354 005237 002214 INC FATFLG OUNT 
4737 032360 010001 MOV. —s- RO, RI :CONTENTS OF TSSR REGISTER 
4738 032362 ERROF ERRNO, SFIERR , SFIMSG sFATAL ERROR TSSR WAS NOT OK 
032362 104455 TRAP CSEROF 
032364 000311 .- WORD 201 
032366 003646 - WORD SFIERR 
032370 012114 - WORD SFIMSG 
4739 032372 208: 
4740 032372 013737 002174 036420 MOV UNITN, T3ODSW :SET UP UNIT NUMBER 
ores 032400 012704 036400 MOV @TSOPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
rds §906000006060660000060660600600660606660606060606060606060060008 
4744 3 
rts sISSUE WRITE CHARACTERISTICS COMMAND 
Fy 
rind $90000006068660606666606006006066066666606666060060006060686006 
4749 032404 004737 010742 JSR PC,.WRTICHR sISSVUE WRITE CHARACTERISTICS 
4750 032410 103407 6cS 23% ;6R, IF COMMAND ISSUED OK 


4751 032412 005237 002214 INC FATFLG sERROR COUNT 
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SEQ 0116 
TEST 2: SKIP TAPE MARKS 


4755 032416 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4756 032420 ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED | 
032420 104456 TRAP CSERHRD ! 
032422 000312 - WORD 
032424 005052 -WORD WRTMSG 
032426 012114 -WORD SFIMSG 
4757 032430 23%: CKLOOP 3;LOOP IF SELECTED 
a7se 032430 104406 TRAP CsCLPi 
pity PREREAAHRAHKHASERAMEHERAEDHRESKEKARLLSEHARRSASHAEAEHASSAAARE 
3 
ores sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
8 
ores PRSEASSSOHSAREHAEEHARAHEEEARAEAAGASALSHAHAGHAESSHESAASAKASSAH 
4765 032432 737 011074 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
4766 032436 103411 BCcS 308 3B8R PROBLEM 
4767 032440 010004 MOV RO,R4 :GET PACKET ADDRESS 
4768 032442 C16501 000002 MOV TSSPCRS),R1 sGET STATUS REGISTER 
4769 032446 37 002214 INC FATFL sERROR COUNT 
4773 032452 ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 
032452 1044 TRAP CSERHRD 
032454 000315 «WORD 203 
032456 040140 -WORD TSORWN 
032460 012126 -WORD PKTSSR 
4774 032462 30%: CKLOOP sLOOP IF SELECTED 
6775 t) 104406 TRAP CsCLPi 
yt ha PRESERHHKERAKAHAHHEEAREAHSERASAGHSSEKAAEEHAEKREASHMAASAARHEDHAK 
aQ : 
pth. 4 sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
3 
srer PREKKAABREROAREANESERAERESSEAAAHKAKAGCARHERERERAELRSERAKABSERE 
4761 
4782 032464 013701 0364350 MOV T3OBFR+6,R1 sPICK UP XSTO 
4783 032470 010102 MOV 3sSET UP EXPECTED 
784 032472 052702 000002 BIS o8iT1.R2 iSET BOT BIT IN EXPECTED 
4785 032476 020102 CMP R1,R2 sD0ES EXP = REC'D 
786 032500 001 BEQ i8R, IF EQUAL COK) 
4787 032502 005237 002214 INC FATFLG i ERROR COUNT 
4791 032506 ERRHRD ERRNO, TSOBOT,EXPREC sTAPE NOT AT BOT AFTER REWIND 
032506 104456 TRAP CSERHRD 
032510 314 -WORD 204 
032512 037741 -WORD TSOBOT 
032514 015554 ‘ EXPREC 
4792 032516 408: CKLOOP sLOOP IF SELECTED 
032516 1 TRAP CscLPi 
4793 032520 012737 0v0001 036554 MOV 7. TSOFCN sSET “FILE” COUNTER AT 1 DECIMAL 
4794 032526 012703 000001 64%: MOV 1,R3 ;ONE RECORD PER “FILE” 
4795 032532 013737 003116 036522 65%: MOV FREE T3OWB iSET UP PACKETS’S WRITE BUFFER 
ones 0 0127 003720 036526 MOV #2000. »130SZ sSET RECORD SIZE AT 2000 BYTES 
pike §9606006060606000606606606600600060060606000600000000000000000006 
8 
Seon sWRITE DATA,ACK.CVC=1 COMMAND 
480 3 
4802 §0060460660006066060060606060060006060060060060006000000000000006 
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SEQ 0117 | 
TEST 2: SKIP TAPE MARKS | 
anos 
032546 012737 140005 036520 MOV #140005, T3OPK3 sWRITE DATA, ACK,CVC=1 COMMAND 
s505 032554 012704 036520 MOV @TSOPK3.R4 sSET UP R4 WITH PACKET ADDRESS 
4806 032560 013702 036554 MOV 3OFCN,R GET FILE COUNT 
4807 032564 000: SWAB 2 , TO UPPER BYTE 
4808 010301 MOV R3,R1 sGET CORD 
4809 032570 4 ADO ‘Ai COUNTER IN UPPER, RECORD @ LOW 
4810 032572 010177 150320 HOV 1. 6F He TO OUT PUT BUFFER 
4811 032576 010465 MOV R4. TSDBCRS) ' 
4812 032602 7 016330 JSR PC WAITF sWAIT FOR SSR TO SET 
4813 032606 016501 000002 MOV TSSRCRS).R1 sGET TSSR CONTENTS 
4814 032612 012702 000200 MOV @SSR,R2 3SET UP EXPECTED 
4815 032616 020102 CMP R1,R2 ;ARE THEY E 
4816 001406 6EQ 708 BR, 
agi 032622 37 002214 INC FATFLG rt RROR COUNT 
1 032626 ERRHRD ERRNO, TSOWDD,.PKTSSR sTSSR CT AFTER WRITE DATA 
032626 104456 TRAP  CSERHRD 
032632 es7070 ar Feoun0 
032634 012126 "WORD PKTSSR 
4822 032636 70%:  CKLOOP ;LOOP IF SELECTED 
032636 104406 TRAP  CSCLP1 
4823 032640 005203 INC R3 sCOUNT THE RECORD COUNTER DOWN 
4824 032642 020327 000021 Chup R3, 021 sAT 20 YET 
4825 032646 001331 BNE 658 38R, IF NOT AT 20 RECORDS WRITTEN 


4826 
4627 POPSSHSHSHKHSSHGKAHSEOHEAHABAHKROASHESHAMHASHETHRSESSSAKRSSHAKRS ESS 
4828 t 
4829 sWRITE TAPE MARK,ACK,CVC*1 COMMAND 
| 
4831 PPSESHAKSSHKHAASSSHESAANSHKAHASHSESSEHEHAREKASHHAASESOOASESLSS 
ae38 032650 012737 141011 036520 MOV 0141011. 73 . T3OPK3 ;WRITE TAPE MARK, ACK cveo1 ¢ COMMAND 
4834 032656 012706 036520 MOV set UP Re UI TH PACKET 
SEie Sistea Sabres goeees = Bo MAR rece ro ser 
t 
4837 032672 016501 000002 MOV TSSACRS).R1 sPICK UP TSSR 
4838 032676 012702 000200 MOV @SSR,R2 sSET UP EXPECTED (SSR ONLY) 
4839 032702 020102 chp R1,R2 3WAS STATUS GOOD 
4840 032704 001406 BEQ 1608 :8R, IF TERMINATION WAS GOOD 
4841 032706 37 002214 INC FATFLG ERROR 
4845 0327 ERRHRD ERRNO, TSOWDC.PKTSSR :TSSR NOT CORRECT AFTER URT TAPE ft. 
032712 106456 TRAP  CSERMRO 
032714 000316 -WORD 206 
032716 040262 “WORD TSOMOC 
032720 012126 [WORD KTSSA 
4846 032722 160%:  CKLOOP sLOOP IF SELECTED 
032722 106406 TRAP —s-« CSCLP1 
age? 082736 37 036554 INC TSOFCN ‘COUNT THE “FILE OWN 
032 023727 036554 000006 Crp T3OFCN, 06 sWRITE S FILE TO T 
4849 032736 BNE 656 308, IF NOT AT S FILES WRITTEN 


{BOG BESSHSSKSBHASTSESS OSSEHNESTALGHASHSSHSADEKACASASMASASSISSSSOE 
WRITE TAPE MARK.ACK.CVC*1 COMMAND 


3 
BPCSOSSSSLSSSE RSLS BLOOHEH SEGKEEHESOASOOHLHS* GS EBAGASHESSAEHAE 





| 
| 
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033102 


rg hy 


0004 
016501 
005237 


104456 
000320 
040140 
012126 


104406 


013701 


104406 
012703 


141011 036520 
036520 


000000 
016330 
000002 
000200 


002214 


011074 


000002 
002214 


036536 


MOV #141011, T30PK3 
MOV @T3OPK3.R4 
MOV R4, TspB(RS) 


PC; WAITF 
MOV TSSRCHS), R1 
ess SR,R2 
: 1658 ¥ 
ERRHRD ERRNO. T3OWDC ,PKTSSR 


165%: CKLOOP 


WRITE TAPE MARK,ACK,CVC*1 COMMAND 
iSET UP R4 WITH PACKET ADDRESS 
: 
;WAIT FOR SSR TO SET 
;PICK UP TSSR 
;SET UP EXPECTED (SSR ONLY) 
;WAS STATUS 


sBR, IF Sete ae WAS GOOD 
ROR COUNT 
sTSSR note CORRECT AFTER ot M. 


CSERHRD 
«WORD 207 
-WORD T3OWDC 
-WORD PKTSSR 
;sLOOP IF SELECTED 
TRAP CsCLP1 


‘cpa aienabiasns aap ails cman ipagapanRN RRR: 
; ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


3 
{SAAS AAAEASASHESASASESSEESAASSEASEASASESESSESAESEEESEEESEEE 


JSR PC ,REWIND 
BCS 17 OF 

MOV RO.R 

MOV TSSRCRS). R1 
INC 


ERRHRD ERRNO. T3ORWN,PKTSSR 


1708: CKLOOP 


;CALL_TAPE REWIND COMMAND 


;GET Ss REGISTER 
OR COUNT 


;REWIND NOT ACCEPTED 
TRAP CSERHRO 


ee ee ee ee eT re 


iGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


| sesaeeasescasecccscccoccscescaseseccescesesooseoseseseese 


MOV T3OBFR+6,R1 

MOV R1,R2 

BIS eoini. R2 

CMP R1,R2 

BEQ 

INC FATFLG 

ERRHRD ERRNO, TSOBOT ,EXPREC 
160%: CKLOOP 

MOV @TSOINV,RS 


-WORD 208 
-WORD T3ORWN 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
;PICK UP xSTO 
;SET UP EXPECTED 
:SET BOT BIT IN EXPECTED 
;DO0ES EXP = REC'D 
iB. IF EQUAL (OK) 
sERROR COUNT 
3; TAPE Not AT BOT AFTER a 
TRAP CSERHRD 
. WORD 209 
“WORD T30B0T 
-WORD EXPREC 
;LOOP IF SELECTED 
CSCLP1 


TRAP 
;SET UP POINTER TO COMMAND TABLE 


SEQ 0118 
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4907 033106 013737 
4908 033114 0113357 
4909 033120 012704 


1 

33140 104456 
033142 000322 
033144 005052 
033146 C12114 

4925 033150 
033150 104406 

4926 

4927 

4928 

4929 

4930 

4931 

a9 


32 
4933 033152 012737 


33226 000000 
033230 013727 
000000 


002174 
036416 
036400 


010742 
002214 


141010 
000001 
036520 


000000 
176750 
016330 
000002 


000250 
002116 
177772 
177756 
036556 
000200 


002214 


036420 


036520 
036522 


036556 


MOV UNITN, T300SW 
182%: MOV (R3), TSOETH 
MOV OTSOPACKET .R4 


F SSSSSSHSSSSSSSSSSSSSSESSASSSHHSSHSESSSSSSSEESESESESESESEEEEE 


‘ 
sISSUE WRITE CHARACTERISTICS COMMAND 


PC ,WRTCHR 
168% 
FATFLG 


’ MOV RO,R1 
ERRHRD ERRNO,WRTMSG,SFIMSG 


JSR 
BcsS 
INC 


166%: CKLOOP 


§ SOSRSSSHHSSHSSHSESSSSSHEESESSSESEEASSSEEHSEASESSEEEEESEEEESEEES 


SKIP TAPE MARK.ACK,CVC*1 COMMAND 


i 
FSSSSOSHSSSHSHSSHSESHSHSSSSSSESSEASSESESSESESESEESEEEEEESEEEEE 


MOV soeense, veers 


g R4 
189%: MOV R4, TSOBCRS) 
MO 06 

190%: JSR PC, WAITF 


MOV TSSRCRS) PA 
BIT @#SSR,R1 

BNE 191% 

DELAY 250 


DEC T3OOLY 
BNE 


190% 
191%: MOV @SSR ,R2 
CMP R1,R2 
BEQ 


INC FATFLG 
ERRHRD ERRNO, TSOSKM,PKTSSR 


SE@ 0119 
sSET UP UNIT NUMBER 
iGET NEXT COMMAND 
sSUBROUTINE NEEDS PACKET «DDRESS 
s ISSUE WRITE CHARACTERISTICS 
3BR, COMMAND ISSUED OK 
sERROR C 
s SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC i 
CSERMRD 
"WORD 210 
-WORD WRTMSG 
-WORD SFIMSG 
;LOOP IF SELECTED 
TRAP CscLP1 
sSKIP TAPE MARK,ACK,CVC=1 COMMAND 
:SET UP NUMBER TO SKIP 
sSET UP R4& WITH PACKET ADDRESS 
s ISSUE COMMAND 
iSET UP DELAY COUNTER 
sWAIT FOR SSR TO SET 
sPICK UP TSSR 
sIS SSR SET YET 
;BR, IF SSR IS SET 
;CALL DELAY ROUTINE 
MoV @250,(PC)+ 
. WORD 
MOV LSOLY,(PC)+ 
. WORD 
DEC -6(PC) 
BNE -° 
DEC -22(PC) 
BNE --20 


sBUMP DELAY ROUTINE 

:BR, IF MORE DELAY TO GO 
:SET UP EXPECTED (SSR ONLY) 
sWAS STATUS GOOD 

BR, IF et WAS GOOD 


OR COUNT 
;TSSR NOT CORRECT AFTER SKIP TAPE M. 


8 SE 


ee 


a ee ee 
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SEQ 0120 
TEST 2: SKIP TAPE MARKS 

4953 033304 192%: CKLOOP ;LOOP IF SELECTED 

ese 033304 104406 TRAP CSCcLPi 

4955 PTI TI TIT iriiiiiiiiiiiiiiiiiiiiiiitiitiititiiitiiiiitititi ttt) 

4956 F 

pe 1 ;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

8 

4959 Pyriririiitiitiiiiritiiiiiiiiiiiiitititiiiiiiiitiiitii iti tt 

4960 

4961 033306 013701 036430 MOV T3OBFR+6,R1 sPICK UP XxSTO 

4962 033312 010102 MOV R1,R ;SET UP EXPECTED 

4963 033314 052702 100000 BIS @81T15,R2 3SET TMK BIT IN EXPECTED 

4964 033320 020102 CMP R1,R2 ;D0ES ExP REC'D 

4965 033322 001406 BEQ ;BR, IF EQUAL (OK 

4966 033324 005237 002214 INC FATFLG sERROR COUNT 

4970 033330 ERRHRD ERRNO, TSOTMK ,EXPREC 3; TMK NOT SET AFTER WRT TAPE MARK 
033330 104456 TRAP CSERHRD 
033332 000324 . WORD 212 
033334 C40414 . WORD T3OTMK 
033336 015554 .- WORD EXPREC 

4971 033340 1958: CKLOOP ;LOOP IF SELECTED 
033340 104406 TRAP CsCLPi 

4972 033342 012700 177777 MOV #177777,RO sVALUE TO a i oy TO MEMORY 

4973 033346 004737 017502 JSR PC, .FILLMEM sFILL MEM WITH ALL ONES 

pede} 033352 013737 003116 036522 MOV FREE , TSORB sSTARTING READ BUFFER ADORESS 

eons fSOSSEEEESEEEEEESEESEESEEEEEEEEEEESEEEEEEEEEEESOEREDEEOEESE 

497 3 

pede | sREAD FORWARD,ACK.CVC=1 COMMAND 

3 

ose § 9O00066006400606060600606606060606666860600606606060860600806868 

4961 

4962 033360 012737 140001 036520 MOV #140001, sees sREAD FORWARD,ACK,CVC=1 COMMAND 

4983 033366 012704 036520 MOV @T3OPK3,.R ;SET UP R4 WITH PACKET ADDRESS 

4964 033372 012737 003720 036526 MOV #2000. {30sz ;SET UP RECORD SIZE IN PACKET 

4985 033400 010465 000000 MOV R4, TSOBCRS) :ISSUE COMMAND 

4986 033404 004737 016330 JSR PC ,WAITF sWAIT FOR SSR TO SET 

4987 033410 016501 000002 MOV TSSRCRS),RE ;GET TSSR CONTENTS 

49868 033414 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 

4989 033420 020102 CMP R1,R2 sARE THEY EQUAL 

4990 033422 001406 BEQ 200% ;6R, IF OK 

4991 033424 005237 0602214 INC FATFLG sERROR COUNT 

4995 033430 ERRHRD ERRNO, TSORDF ,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
033430 104456 TRAP CSERHRD 
033432 000 . WORD 13 
033434 037313 .- WORD ‘ 
033436 012 - WORD PKTSSR 

4996 033440 2008: CKLOOP ;LOOP IF SELECTED 
033440 104406 TRAP CSCLP1 

4997 033442 017701 147450 MOV @FREE ,R1 sFIRST LOC IN READ BUFFER 

4996 033446 012702 177777 MOV 0177777, R2 sEXPECTED IF NO DATA TRANS. 

4999 033452 020102 CMP R1,R2 ;DID ANY DATA GET TRANSFERRED 

5000 033454 001006 BNE 220% ;8R, IF NO DATA TRANS (GOOD) 

5001 033456 005237 002214 INC FATFLG sERROR COUNT 

5005 033462 ERRHRD ERRNO, TSODTR.EXPREC ;DATA TRANSFERRED ON ae * — 
033462 104456 CSERHRD 


033464 000326 . "loro 








A | 
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033466 040770 .WORD T3ODTR 
033470 015554 “WORD EXPREC 
5006 033472 220%: CKLOOP ;LOOP IF SELECTED 
033472 104406 TRAP CSCLP1 
$007 033474 012702 001001 MOV #1001,R2 ;SET UP RECORD NUMBER EXPECTED (FILE 2) 
5008 033500 017701 147412 MOV @FREE.R1 ;GET INFO FROM BUFFER 
5009 033504 020201 + CMP R2,R1 ;ARE THEY EQUAL 
5010 033506 001406 BEQ 228% :BR, IF EQUAL (OK) 
3011 033510 005237 002214 INC FATFLG ERROR COUNT 
5015 033514 ERRHRD ERRNO, T3OPTB,EXPREC ;RECORD POSITION WAS NOT CORRECT 
033514 104456 TRAP — _CSERHRO 
033516 000327 .WORD 215 
033520 037142 "WORD T3OPTB 
033522 015554 [WORD €EXPREC 
5016 033524 228%: CKLOOP ;LOOP IF SELECTED 
a 033524 104406 TRAP —- C$CLP1 
seis {RASS AH AHA RAAEHHEHRHOCHASHRARAOAARHEDEREAHKRRAHHHREHSSHKEHKAEHDS 
1 3 
3020 ;ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
3 
sess § 98S 0668088 066666686466 66660604666666666060668468680686466666664646868 
5024 033526 004737 011074 JSR PC ,REWIND sCALL TAPE REWIND, COMMAND 
5025 033532 103411 Bcs 2308 ;8R, IF NO PROBLEM 
5026 033534 010004 MOV RO.R i SAVE TOACKET ADDRESS 
5027 033536 016501 000002 MOV TSERCRS), R1 ;GET TSSR STATUS 
5028 033542 005237 002214 INC FATFL ;ERROR COUNT 
5032 033546 ERRHRD ERRNO. T30RWN,PKTSSR ;REWIND NOT ACCEPTED 
033546 104456 TRAP CSERHRD 
033550 330 WORD 216 
033552 040140 WORD TSORWN 
033554 012126 WORD PKTSSR 
5033 033556 230%:  CKLOOP ;LOOP IF SELECTED 
033556 104406 TRAP  C$CLP1 
sess { PFOSSAASSEASSSSSSSEASASLESHESASSESSSESSESEKESSEKAESESESESEEEEEED 
; 
5037 ;GET EXTENDED STATUS REGISTER ZERO (XST®) FROM MESSAGE BUFFER 
7. 
5039 FPSSSASASHSSSSSSSSHSSSHSSSSESSESHSHSSSESESEESEEHKEHEEESEEEEEEEE 
5041 033560 013701 036430 MOV T30BFR+6,R1 ;PICK UP XSTO 
5042 033564 010102 MOV R1,R2 ;SET UP EXPECTED 
5043 033566 052702 000002 BIS @B81T1,R2 ‘SET GOT BIT IN EXPECTED 
5044 033572 020102 CMP R1,R2 ;D0ES REC'D 
5045 033574 001406 BEQ 2408 ;8R, IF “EQUAL (OK) 
5046 033576 005237 0v2214 INC FATFLG ;ERROR COUNT 
5050 033602 ERRHRD ERRNO, TSOBOT,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
033602 104456 TRAP  CSERHRD 
033604 000331 .WORD 217 
033606 037741 "WORD T3OB0T 
033610 015554 ‘WORD EXPREC 
S051 033612 240%:  CKLOOP ;LOOP IF SELECTED 
033612 104406 TRAP —- CSCLP1 
S052 033614 005723 TST (R3)+ ;POINT TO NEXT POSITION 
5053 033616 011301 MOV (R3),R1 ;GET NEXT COMMAND ETC. 


SEQ 0121 
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| SEQ 0122 
TEST 2: SKIP TAPE MARKS 
5054 033620 020127 177777 CMP R1, 0177777 sEND OF TABLE MARKER 
5055 033624 001402 BEQ 330% ;6R, IF AT END OF TABLE 
5056 033626 000137 033114 JMP 182% ; JUMP TO MORE COMMANDS TO DO 
5057 033632 330%: CKLOOP ;LOoP IF SELECTED 
033632 104406 TRAP CSCLPi 
5058 033634 ENDSUB 3<<<¢¢¢¢CC<< END SUBTEST >>>>>>>> >>> 
033634 L10044: 
033634 104403 TRAP CsESuB 
5059 033636 023727 002214 000017 CMP FATFLG,@15. :IS ERROR COUNT AT 25 
5060 033644 103402 BLO 999% 368R, IF LESS THAN 25 
5061 033646 004737 017262 JSR PC ,CKDROP sTRY TO OROP THE UNIT 
5062 033652 999%: 
5063 s¢ 
5064 3 
5065 ‘emia 2. SUBTEST 2 
5067 i VERIFIES THAT SKIP TAPE MARKS COMMANDS WITH A TAPE 
5068 sMARK COUNT GREATER THAN 1 OPERATE PROPERLY. COUNTS 
5069 ;0F 2,3,8,64,256, AND 512 ARE TESTED. THE 
sore ; TESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 
a 
5072 3 
5073 F 
5074 3- 
5075 
5076 033652 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
033652 T2.2: 
033652 104402 TRAP Cs6SuUB 
5077 033654 004737 041152 JSR PC, T3OREST sSET COMMAND PACKET 
5078 033660 005037 036554 CLR T30FCN iCLEAR FILE COUNTER 
5079 033664 004737 041244 JSR PC, T3ORT2 3SET UP OTHER COMMAND PACKET 
5080 033670 004737 041306 JSR oshase ft ;SET UP OTHER COMMAND PACKET 
5081 033674 012737 176750 036556 MOV #65000. , T3ODLY ;SET UP DELAY COUNTER 
5082 033702 004737 016054 108: JSR oss SOF INIT ;D0 INITIALIZE ON CONTROLLER 
5083 033706 103426 bcs 20% 36R IF INIT WAS OK 
5084 033710 DELAY 250 ;DELAY ROUTINE CALL 
033710 012727 000250 MOV €250.,(PC)+ 
033714 000000 - WORD 0 
033716 013727 002116 MOV LSOLY.CPC)+ 
033722 000000 . WORD 
033724 005367 177772 DEC ee ae 
033730 001375 BNE 
033732 005367 177756 DEC “23cve) 
033736 001367 BNE 
5085 033740 005337 036556 DEC T3OOLY :BUNP COUNTER 
5086 033744 001356 BNE 10$ 38R, IF MORE COUNTING TO DO 
5087 033746 005237 002214 INC FATFLG sERROR COUNT 
5091 033752 010001 MOV RO,&1 CONTENTS OF it REGISTER 
5092 033754 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
033754 104455 TRAP CsEROF 
033756 000332 . WORD 218 
033760 003646 . WORD SFIERR 
033762 012114 . WORD SF IMSG 
5093 033764 20%: 
5094 033764 013737 002174 036420 MOV UNITN, TSOOSW sSET WwW UNIT mrBER 
033772 012704 036400 MOV @TSOPACKET ,R4 3; SUBROUTINE NEEDS PACKET ADORESS 
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5097 
5098 


033776 
034002 


i) 
034112 


005052 
012114 
104406 


013701 


104406 
012737 


010742 
002214 


011074 


000002 
002214 


000001 036554 


F SSSHSSSSSSSSSSSHSSSHSSSSSSSSHSSSHSSSSSSSSSESSSSSSSSSSSSSSSEE 


;ISSUE WRITE CHARACTERISTICS COMMAND 


JSR PC .WRICHR s ISSUE WRITE CHARACTERISTICS 

BcS 23% BR, IF COMMAND ISSUED OK 

INC FATFLG sERROR COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC —> 
. WORD 
. WORD 
. WORD 

23%: CKLOOP ;LOOP IF SELECTED 

TRAP 


| PORSAOSEEESEREEEDEEESDESEESEEEDDOEREDEEEEEDEEEDEREEEEEEEES 
; 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


é 
REAR AEAEARAERAERAEAAMRREAEHEAEARAAEAARRHKARAREAREEARHRESKISH 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
Bcs 30$ BR F NO PROBLEM 
MOV RO,R4 GET PACKET ADORESS 
MOV TSSR(RS).R1 GET STATUS REGIS.ER 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, TSORWN,PKTSSR ;REWIND NOT ACCEPTED nail 
. WORD 
[WORD 
"WORD 
30%: CKLOOP ;LOOP IF SELECTED 
TRAP 
{ SSSSSSHSHASSESEHESESSESAESEAESSSSESESESESESSEESEEEEEEKEDEEEEEEEE 
iGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
| edcnsecccscoseocosessoscosossoseesescceessoseosesco;esese 
MOV T30BFR+6,R1 ;PICK UP XSTO 
MOV R1,R2 3SET UP EXPECTED 
BIS @81T1,R2 ;SET BOT BIT IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 40$ i8R, IF EQUAL COK) 
FATFLG ;ERROR COUNT 
ERRHRD ERRNO, TSOBOT,EXPREC ;TAPE NOT AT BOT AFTER REWINO 
"WORD 
"WORD 
40$: CKLOOP ;LOOP IF SELECTED uae 
MOV @1., T30FCN :SET “FILE” COUNTER AT 1 DECIMAL 








CSERHRD 
20 


=% 


3SORWN 
PKTSSR 
CsCLP1 





SEQ 01235 
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$148 034120 012703 
s 034124 013737 
5150 034132 012737 


& 
wo 


7 
$5158 034140 012737 


034230 104406 
5177 034232 005. 
5178 034234 020327 
pad 034240 001331 
5181 
5182 
5183 
5184 
5185 
5186 
5187 034242 012737 
5188 034250 012704 
5189 034254 01046 
Si 260 004737 
5191 264 016501 
5193 034274 020102 


000001 
003116 
000024 


140005 
036520 
036554 
146726 
000000 
016330 
000002 
000200 


002214 


000021 


141011 
036520 


000000 
016330 
000002 
000200 


002214 


036522 


036526 


036520 


036520 


64%: 
65%: 


#1,R3 
MOV FREE, T30WB 
MOV #20. ,730SZ 


sONE RECORD PER “FILE” 
iSET UP PACKETS'S WRITE BUFFER 
sSET RECORD SIZE AT 2000 BYTES 


{ PRSRAAOREAEEEERERESEEEEEDEEEEEEEEEESEEEEEDEEEEEEEEEEEREEE 
; 
sWRITE DATA,ACK,CVC=1 COMMAND 


4 
SEHAHEAAEAESHEAESESEAESSEEESSESEAEESRERESESEASESEESESSESESEES 


708: 


MOV #140005 , TS3OPK3 


MOV eT SOPKS R4 
MOV OF CN, R2 
SWAB Re 

MOV R3,R1 

ADD , 

MOV R1, FREE 

MOV R4, TSDBCRS) 
JSR PC. WAITF 

MOV TSSR(RS), RL 
MOV @SSR,.R2 

CMP R1,R2 

BEQ 708 


INC FATFLG 
ERRHRD ERRNO, TSOWDD,PKTSSR 


R3 
CMP R3, 021 
65% 


;WRITE ty" sol CvC=1 COMMAND 
sSET UP R H PACKET ADDRESS 


sMOVE TO 
iGET RECORD COUNTER 
sFILE COUNTER IN UPPER, RECORD @ LOW 
sMOV TO OUT PUT BUFFER 
s ISSUE COMMAND 
sWAIT FOR SSR _ TO SET 
3G. TSSR CONTENTS 
sSET UP EXPECTED 
EQUAL 


ERROR COUNT 
:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSE 
‘WORD 222 
"WORD  TSOWOD 
“WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
:COUNT THE RECORD COUNTER DOWN 


sAT 20 YET 
3BR, IF NOT AT 20 RECORDS WRITTEN 


[RRRAAAEEEEEEEEEEESEEEDEESEESEEEDEEDEDEEEDEEEDREDEEDDEEEEE 
; 
sWRITE TAPE MARK,ACK,CVC=1 COMMAND 


i 
PRREGeSRKREAEERERREARAKAHREAEAERADKRERRARAARELHASHEHEEKKEA MA 


160$: 


MOV #141011, T30PK3 
@T3OPK3.R4 
MOV R4, TSDBCRS) 


JSR PC ,WAITF 
MOV TSSRCRS),.R1 
MOV @SSR ,R2 

CMP R1,Re2 

BEQ 


INC FATFLG 
ERRHRD ERRNO, TSOWOC,PKTSSR 


CKLOOP 


sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
:SET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
TSSR 


PICK 
{SET UP EXPECTED (SSR ONLY) 
;WAS STATUS GOOD 


U 

38R, IF TERMINATION WAS GOOD 
sER OUNT 

sTSSR NOT CORRECT AFTER er ae Mm. 


CS#ERHRD 
-WORD 223 
-WORD TSOWDC 
WORD PKTSSR 


;LOOP IF SELECTED 


TRAP CSCLP1 


SEQ 0124 
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034316 005237 036554 


| 


5201 
5202 
S203 


S3a3a 


eeKNNIL 
@QANOUAUNEO 


gee 


5253 


034322 
034330 


034440 
034444 


034446 
S2 034452 


034454 


012737 


040140 
012126 


104406 


013701 


036554 


141011 
036520 
000000 
016330 
000002 
000200 


002214 


011074 


000002 
002214 


036430 


000031 


036520 


INC T30F CN 
CMP TSOFCN, #25. 
BNE 64% 


sCOUNT THE “FILE” COUNTER DOWN 
;WRITE 25 FILES TO TAPE 
3BR, IF NOT AT 25 FILES WRITTEN 


J SRAEHAAASAAARAEASASASESESSKESAASESESASSESESESSASESESESESEESEEESE 


;WRITE TAPE MARK,ACK,CVC=1 COMMAND 


é 
ORR EAKEHEAHAREEEEKEKAAERRRECHAEKRAAASAESELAESHRASSHARAEESS 


MOV 0141011, T3OPK3 
MOV OT3OPK3.R4 

MOV R4, TSDBCRS) 
JSR PC; WAITF 

MOV TSSRCRS),R1 
MOV @SSR,R2 


CMP R1,R2 


INC FATFLG 
ERRHRD ERRNO, TSOWDC,PKTSSR 


165%: CKLOOP 


;WRITE TAPE MARK,ACK,CVC=1 COMMAND 
;SET UP R4& WITH PACKET ADDRESS 
;ISSUE COMMAND 
;WAIT FOR SSR TO SET 
3PICK UP TSSR 
;SET UP EXPECTED (SSR ONLY) 
;HAS STATUS 
:GR, IF TERMENATION WAS GOOD 
RROR COUN 


sE T 
sTSSR not CORRECT AFTER a M. 


PRARKERAREAERHEAAEEARREAKARAAERHAARESEAEKHAHERKAARAKAKRHKARKARKRES 


; ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


$ 
aan ARALEREREAEAREAARARAARSARAAKAAARARAEAAHRAREARERAA RR 


JSR PC ,REWIND 
BCS 170% 

MOV RO,R4 

MOV TSSRCRS),R1 


INC 
ERRHRD ERRNO, TSORWN,PKTSSR 


170%: CKLOOP 


CSERHRD 
-WORD 224 
-WORD T3OWDC 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 
sCALL_TAPE REWIND COMMAND 
BR. IF NO PROBLEM 
sGET PACKET ADDRESS 
sGET STATUS REGISTER 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 225 
-WORD TS3ORWN 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CscLP1 


{ORBEA EEEEESEEESEESEEEEEESEEEEEEEEDEEEEEEEEEEDEEEDEDEEESS 
:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


e 
PEER REREKEAAAAHREREREERAARKEMEREREKEKAARRACRSSAEAEREAKARASH 


MOV ag Ay +6,R1 
MOV 

BIS asin. R2 
CMP 1, 

BEQ 


sPICK UP XSTO 

sSET UP_ EXPECTED 

sSET BOT IT IN EXPECTED 
sDOES EXP = REC'D 

7BR, IF EQUAL COK) 


SEQ 0125 
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SEQ 0126 
| TEST 2: SKIP TAPE MARKS 
$254 034456 005237 002214 INC FATFLG jERROR COUNT 
5258 034462 ERRHRD ERRNO, TSOBOT,EXPREC sTAPE NOT AT BOT AFTER REWIND 
034462 104456 TRAP § CSERHRO 
034464 000342 .WORD 226 
034466 037741 “WORD T3OBOT 
034470 015554 [WORD EXPREC 
5259 034472 180%:  CKLOOP ;LOOP IF SELECTED 
034472 104406 RAP = CSCLP1 
5260 034474 012737 000002 036554 MOV @2, TSOFCN ;SET TO NUMBER OF SKIP “FILES” 
5261 034502 012703 036536 MOV OTSOIMNV,R3 ;SET UP POINTER TO COMMAND TABLE 
5262 034506 013737 002174 036420 MOV UNITN, TSODSW ;SET UP UNIT NUMBER 
5263 034514 011337 036416 182%: MOV (R3), T30ETM GET NEXT COMMAND 
3264 034520 012704 036400 MOV @T3OPACKET, Maa sSUBROUTINE NEEDS PACKET ADDRESS 
sees FSSSSESSSSSSSESSSAASSSSESEAASSSSESSSESASEEESEESEEHAEEEEEEEEERE 
S26 3 
$268 ;ISSUE WRITE CHARACTERISTICS COMMAND 
3 
sere SRRAAREEKKRARAKARAEKEATEEAERAREAREEERAAAARAERRREAEREHRSA REE 
5272 034524 004737 010742 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
5273 034530 103407 BCS 188$ :8R, IF COMMAND ISSUED OK 
5274 034532 005237 002214 INC FATFLG ;ERROR COUN 
5278 034536 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
5279 034540 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
034540 104456 TRAP CSERHRD 
034542 000343 .WORD 227 
0 005052 “WORD TMSG 
034546 012114 ‘WORD  SFIMSG 
5280 034550 188%:  CKLOOP ;LOOP IF SELECTED 
at 034550 104406 TRAP — C$CLP1 
sees PPE REHKEAEE EARS EEAASE HARSHER RAEAAAKEAHEEERHEERERSEAKRERMAESH 
8 3 
3204 ;SKIP TAPE MARK,ACK,CVC=1 COMMAND 
3 
aces PSORRHERKERERAREEHHAREAAHEEKARHEERARAEEKAKAKAAREKRERAKRSKASASE 
8 
5288 034552 012737 141010 036520 MOV #141010, T30PK3 ;SKIP TAPE MARK,ACK,CVC=1 COMMAND 
5289 034560 013737 036554 036522 MOV T3OFCN, TSORB ;SET UP NUMBER TO SKIP 
5290 034566 012704 036520 MOV @T30PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
5291 034572 010465 000000 189%: MOV R4, TSOBCRS) sISSUE COMMAND 
5292 034576 012737 176750 036556 MOV #65000. T3ODLY ;SET UP DELAY COUNTER 
5293 034604 004737 016330 190%: JSR PC, WAITF WAIT FOR SSR TO SET 
5294 034610 016501 000002 MOV TSSRCAS) «RI sPICK UP TSSR 
5295 034614 032701 000200 BIT @SSR,R1 :IS SSR SET YET 
5296 034620 001017 BNE 1918 :8R, IF SSR IS SET 
5297 034622 DELAY 250 ;CALL DELAY ROUTINE 
034622 012727 000250 MOV #250,(PC)>+ 
034626 000000 é 
034630 013727 002116 HOV LSOLY.C(PC)« 
034634 000000 .WORD 0 
034636 005367 177772 bEC -6CPC) 
034642 001375 BNE 
034644 005367 177756 DEC "39¢PC) 
034650 001367 BNE .-20 


5298 034652 005337 036556 DEC TSODLY sBUMP DELAY ROUTINE 
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SEQ 0127 


5299 034656 001352 BNE 190% IF MORE DELAY TO GO 
5300 034660 012702 000200 191%: MOV @SSR ,R2 get UP EXPECTED (SSR ONLY) 
S301 034664 020102 CMP R1,R2 AS STATUS GOOD 
S302 034666 001406 BEQ 192% sBR, IF TERMINATION WAS GOOD 
S303 034670 005237 002214 INC FATFLG ee COUNT 
5307 034674 ERRHRD ERRNO, TSOSKM,PKTSSR sTSSR NOT CORRECT AFTER SKIP TAPE M. 
034674 104456 TRAP cs 
034676 000344 -WORD 228 
034700 037014 -WORD TSOSKM 
034702 012126 -WORD PKTSSR 
S308 034704 192%: CKLOOP sLOOP IF SELECT. GC 
034704 104406 TRAP CsCLP1 
seit §9OO660666066000000666666006000066060606000000000606000000000008 
‘ 
sere sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
; 
asi8 § COOSOSEOEO004000600000000006060066000000000000000000008808 
5316 034706 013701 036430 MOV T3OBFR+6,R1 sPICK UP XSTO 
5317 034712 010102 MOV R1,R2 sSET UP EXPECTED 
$318 034714 052702 100000 BIS eeitis. R2 sSET TMK BIT IN EXPECTED 
5319 034720 020102 CMP R1,R2 sDOES EXP = REC'D 
S320 034722 001406 BEQ 195% sBR, IF EQUAL (OK) 
$321 034724 005237 002214 INC FATFLG sERROR COUNT 
5325 034730 ERRHRD ERRNO, TSOTMK ,EXPREC sTMK NOT SET AFTER WRT TAPE MARK 
034730 104456 TRAP CSERHRD 
034732 000345 -WORD 229 
034734 040414 -WORD TSOTMK 
034736 015554 -WORD EXPREC 
5326 034740 195%: CKLOOP sLOOP IF SELECTED 
034740 104406 TRAP CSCLP1 
5327 034742 012700 177777 MOV #177777,R0 sVALUE TO WRITTEN TO MEMORY 
$328 034746 004737 017502 JSR PC ,FILLMEM sFILL MEM WITH ALL ONES 
Pes H 034752 013737 003116 036522 MOV FREE , TSORB sSTARTING READ BUFFER ADDRESS 
ass} § SOOOOO664006000060006650000006600000600006000660000060000088 
i 
i334 sREAD FORWARD,ACK,CVC=1 COMMAND 
: 
seas § OOO6O006000060000600006000006060600000660000000000000808088 
5337 034760 012737 140001 036520 MOV #140001 , TSOPKS sREAD FORWARD, ACK,CVC=1 COMMAND 
5338 034766 012704 036520 MOV OTSOPK3 ,R4 sSET UP R4 WITH PACKET ADORESS 
5339 034772 012737 000024 036526 MOV #20. , T30SZ sSET UP RECORD SIZE IN PACKET 
5340 035000 010465 000000 MOV R4, 7SDB(R5) s ISSUE COMMAND 
5341 035004 004737 016330 JSR PC ,WAITF iWAIT FOR SSR _ TO SET 
$342 035010 016501 0v0002 MOV TSSR(RS).R1 sGET TSSR CONTENTS 
5343 035014 012702 000200 MOV @SSR ,R2 iSET UP EXPECTED 
344 035020 020102 CMP R1,R2 sARE THEY EQUAL 
5345 035022 001406 BEQ 200% sBR, IF OK 
5346 035024 005237 002214 INC FATFLG ERROR COUNT 
5350 035030 ERRHRD ERRNO, TSORDF ,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
035030 104456 TRAP CSERHRO 
035032 000346 -WORD 230 
035034 037315 -WORD T 


SOROF 
035036 012126 -WORD PKTSSR 
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$351 035040 200%: CKLOOP sLOOP IF SELECTED 
035040 1044 TRAP CsCLP1 
S352 035042 017701 146050 MOV OFREE .R1 sFIRST LOC _IN READ BUFFER 
S353 035046 012702 177777 MOV #177777 ,R2 sEXPECTED IF NO DATA TRANS. 
$354 035052 020102 CMP R1,R2 sDID ANY DATA GET TRANSFERRED i 
S355 035054 001006 BNE 220% 3BR, IF NO DATA TRANS (GOOD) 
S356 035056 005237 002214 INC FATFLG sERROR COUNT 
5360 035062 ERRHRD ERRNO, TSODTR,EXPREC sDATA TRANSFERRED ON READ TAPE MARK 
0 104456 TRAP CSERHRD 
035064 000347 -WORD 231 
035066 040770 -WORD T3ODTR 
035070 015554 WORD EXPREC 
$361 035072 220%: CKLOOP sLOOP IF SELECTED 
035072 104406 TRAP CsCLPi 
5362 035074 013702 034554 MOV TSOFCN,R2 sGET NUMBER OF SKIPS 
5363 035100 005202 INC R2 sSET TO CORRECT FILE VALUE 
5364 035102 0003502 SWAB Re sSWAP BYTE HALVES 
S365 035104 052702 900001 BIS #6ITO,R2 sSET FOR RECORD #1 
$366 035110 C1771 146002 MOV OFREE ,R1 sGET INFO FROM BUFFER 
$367 035114 020701 CMP R2,R1 sARE THEY EQUAL 
5368 035116 001/06 BEQ 228% sBR, IF EQUAL (OK) 
5369 035120 005:'37 002214 INC FATFLG ERROR COUNT 
$373 035124 ERRHRD ERRNO, TSOPTB,EXPREC sRECORD POSITION WAS NOT CORRECT 
035124 104456 TRAP CSERHRD 
035126 000350 -WORD 232 
035130 037142 -WORD TS3OPTB 
035132 015554 -WORD EXPREC 
$374 035134 228%: CKLOOP sLOOP IF SELECTED 
53 035134 104496 TRAP CsCLP1 
3376 j PROSSSESSESSDEESEESEDESEESESEEDEDESEESEEDESEESEEEESESEESE 
; 
sere sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
; 
3580 jSORSASSESEESEESESESEESEDS SESEESEEDESEESESEESESEEEESEESEES 
1 
S362 035136 004737 011074 JSR PC ,REWIND sCALL_TAPE REWIND COMMAND 
S383 035142 103411 6cs 230% sR, I PROBL 
5384 035144 010004 MOV RO,R4 sSAVE PACKET ADDRESS 
S385 035146 016501 000002 MOV TSSRCRS),.R1 sGET TSSR_ STATUS 
$386 035152 005237 002214 INC FATF sERROR COUNT 
S390 035156 ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 
035156 1044 CSERHRD 
035160 000351 233 
055162 040140 -WORD TSORWN 
035164 012126 wKTSSR 
S391 035166 230%: CKLOOP sLOOP IF SELECTED 
S302 035166 104406 TRAP CsCLP1 
goss j SHSSSSSSSEESESEESESEESESESEESESEESESSESESEESEDEEEEESEEEES 
; 
Sees sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
; 
4d sOSSSRESSSSESESSESEESESEEEESESESESESEEEESESEEEESEESEESEOES 
5399 035170 013701 036430 MOV TSOBFR+6,R1 sPICK UP XSTO 
5400 035174 010102 MOV R1,R2 sSET UP EXPECTED 
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035334 012727 000250 MOV #250,(PC)+ 
035340 000000 -WORD O 


SEQ 0129 
| TEST 2: SKIP TAPE MARKS 
$401 035176 052702 000002 BIS #68IT1,R2 3SET BOT BIT IN EXPECTED | 
035202 020102 CMP R1,R2 —) EXP = REC'D | 
035204 001406 BEQ 40% 3BR, IF EQUAL (OK) ! 
035206 005237 002214 INC ATFLG x ERROR COUNT 
54086 sities ERRHRD ERRNO, TSOBOT ,EXPREC sTAPE NOT AT BOT AFTER = 
0352 104456 CSERHROD 
035214 3S2 e 
035216 037741 . T30B0T 
035220 015554 - WORD EXPREC 
$409 035222 2408: CKLOOP 3;LOOP IF SELECTED 
035222 104406 T CSCLPi 
$410 035224 005723 TST st See sPOINT TO NEXT POSITION 
ii oseees 01339) MOV CR3).R sGET NEXT COMMAND ETC. 
+¢ 0352 02012 177777 CMP Ri 9177777 sEND OF TABLE MARKER 
$413 035234 001410 BEQ 330% i0R IF AT END OF TABLE 
$414 035236 013701 036554 MOV T3SOFCN,R1 3 OF SKIPS 
$415 035242 000241 cLC sCLEAR THE CARRY BIT 
$416 035244 006101 ROL R1 sPUSH OVER ws POSITION 
5417 035246 C10137 036554 MOV R1, TSOFCN sPUT BACK IN COUNTER 
$416 035252 000137 034514 JMP 162% sJUMP TO MORE COMMANDS TO DO 
5419 035256 3308: CKLOOP ;LOoP IF SELECTED 
035256 104406 TRAP CSCcLPi 
$420 035260 ENDSUB 3<<<ceccece<e END SUBTEST >>>>>>>>>>> 
035260 L10045: 
035260 1044035 TRAP CsESUB 
1 035262 023727 002214 000017 CMP FATFLG, #15. :IS ERROR COUNT AT 25 
$422 035270 103402 BLO 999% ;6R, IF LESS THAN 25 
5423 035272 004737 017262 JSR PC, CKDROP sTRY TO OROP THE UNIT 
$424 035276 999%: 
$425 3° 
5426 3 
5427 sTEST 2, SUBTEST 3 
5428 ; 
5430 ; VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 
5431 Swiss 4 WHILE THE TAPE IS Ag Eo AT BOT CAUSES 
5432 sFUNCTION REJECT TERMINATION ITH THE NON-EXECUTABLE 
5433 FUNCTION (NEF) ERROR BIT set.” 
5A3a 3 
$435 8 
5456 3 
5437 8 
5438 3 
5439 s- 
$440 035276 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
035276 T2.3: 
035276 104402 TRAP Cs6SuB8 
5441 035300 004737 041152 JSR PC, TSOREST sSET COMMAND PACKET 
aeeg 035304 005037 036554 CLR T3OFCN sCLEAR FILE COUNTER 
5443 035310 004737 041244 JSR PC, T3SORT2 3SET UP OTHER COMMAND PACKET 
5444 035314 004737 041306 JSR PC, TSORTS 3SET UP phy COMMAND PACKET 
$445 035320 012737 176750 036556 MOV #65000. » T3SOOLY sSET UP DELAY C ER 
5446 035326 004737 016054 108: JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER 
S447 035332 103426 6cs 20% 38R INIT WAS OK 
5448 035334 DELAY 250 i DELAY ROUTINE CALL 
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013727 
000000 


003646 
012114 
013737 
012704 


002116 
177772 
177756 
036556 
002214 


002174 
036400 


010742 
002214 


011074 


000002 
Ov2214 


036420 





SEQ 0130 

Mov LSOLY,CPC)> 
.WwORD 06 
bEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BME -20 

DEC T3OOLY sBUMP COUNTER 

BNE 108 :6R, IF MORE COUNTING TO DO 

INC FATFLG ZERROR 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO, SFIERR,SFINSG sFATAL ERROR TSSR WAS NOT OK 
. WORD 
WORD 

20%: 
Mov UNIT. T sSET UP UNIT 
MOV SOPACKET RA 3 SUBROUT 


JRGAGRGAESSAROAGHRSASEHARBADKSAABEHARKARSEHHRHAKAAREAASAAKRAHEH 
TISSUE WRITE CHARACTERISTICS COMMAND 


i 
BPSSHEKOHKHSEH RES HESEHERELSABLSSESEHAHAHEAKSASROHAAEHSASALSSSAH 


JSR PC ,URTCHR sISSUE WRITE CHARACTERISTICS 

ecs 23% s6R, IF COMMAND ISSUED OK 

INC FATFLG 

MOV RO,R1 s SAVE 

ERRHRO ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
. WORD 
- WORD 
- WORD 

238: CKLOOP sLOOP IF SELECTED 


s OSSSSSSOSESSESEESESESAEEESESEEEESOSEESEESESEEEEEOESESEEES 
i 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


a 
ESSHESOSCHSEVESESHSHSMOLHCHSS SOSSESRSLASHHHKLSAASSEHKESOESHLESSSSH 


JSR PC..REWIND CALL TAPE REWIND COMMAND 
acs 0 s308 16R Peo: eM 

MOV Ra sGET PACKET ADORE 

mov TSERCRS).RI 3GET STATUS REGIS 


x 
ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 


308: CKLOOP sLOOP IF SELECTED 


§SSSRSESOCESSEASHOSSRSOSSSEASHSSESOSSLESTSVSSSOEASSSEOSBASELES 


| 
| 
CSERDF 
235 
-WORD SFIERP 
. SF IMSG 
NUMBER 
INE NEEDS PACKET ADORESS 
I 
sERROR COUNT 
CONTENTS OF TSSR 
TRAP > S aa 
WRTMSG 
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5495 
96 


013701 


104406 
C12737 


012737 


013701 
on018s 


000001 


141410 
036520 
000000 


016330 
000002 
100206 


002214 


036430 
002000 


002214 


036522 


036520 


:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


é 
FRSHSAAHAHAASSSSASAEAEEHEESSAEAAEESESSEAEAAESASESASHEESEEEDEED 


MOV T3OBFR+6.R1 sPICK UP XSTO 

MOV R1,R2 sSET UP_ EXPECTED 

BIS oBIT1,R2 sSET BOT BIT IN EXPECTED 

CMP R1,R2 sDOES EXP = REC'D 

BEQ 40$ :6R, IF EQUAL (OK) 

INC FATFLG sERROR COUNT 

ERRHRD ERRNO, TSOBOT,EXPREC sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 238 
-WORD T30B0T 
-WORD  EXPREC 

40%: CKLOOP ;LOOP IF SELECTED 

TRAP CsCLP1 

MOV #1, T30WB ;SET @ OF TM TO SKIP 


j PORAAEESEEESEEAEESEEEEEAERESEEESSEEEEDEREEEEEEDEDEEESEEEE 
: 
s;SKIP TAPE MARK REVERSE ,ACK,CVC=1 COMMAND 


3 
{ SSSSSASSSSESSHSSSSAAAESSSESAASHSESESSSHESESEEHESEESEEESEEEEE 


MOV #141410, TSOPK3 ;SKIP TAPE MARK REVERSE .ACK,.CVC=1 CMD 
@TSOPK3 ,R4 


MOV : ;SET UP R4& WITH PACKET ADDRESS 
MOV R4, TSOBCRS) s ISSUE COMMAND 

JSR P Paw id sWAIT FOR SSR TO SET 

MOV TSSRCR sGET TSSR CONTENTS 


MOV assniscé1t1 16172, R2 SET UP EXPECTED 


CMP ;ARE THEY EQUAL 

BEQ by gs BR, IF OK 

INC TFLG ;ERROR COUNT 

ERRHRD ERRNO T3OIBT.PKTSSR :TSSR INCORRECT AFTER ee 


C#ERHRO 
"wORD T3OIBT 
"WORD PKTSSR 


TRAP CsCLP1 


70$: CKLOOP ;LOOP IF SELECTED 


j POROOESEEAEEEEESEEEEEEEEEEESEEEEERESEDEEDEDEEEDEESEEEDEEE 
iGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


3 
FSSSOSASSHSSESSSESSSSSESSSSSHSSEHESASHEESSESEESESEEESEESASEEEEE 


MOV TSOBFR+6,R1 sPICK UP XSTO 

MOV R1,R2 ;SET UP EXPECTED 

BIS #6IT10,R2 ;SET NEF IT IN EXPECTED 
CMP R1,R2 sD0ES EXP = REC'D 

BEQ 180% BR, IF EQUAL (OK) 

INC FATFLG ERROR COUNT 
ERRHRD ERRNO, TSONEF ,EXPREC 3 TAPE wot at NEF 


TRAP CSERHRD 
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0 
$5550 035652 


S554 035666 
S555 035672 
$5356 
5557 
$558 


| 
1 
a: 
S559 
5560 
5561 
$562 
$563 
5564 
5565 
5566 
5567 
568 
| 


56 
5570 
71 
$572 035672 
35672 


103426 


000000 
013727 
000000 


3646 
012114 


002214 
017262 


002116 
177772 
177756 
036556 
002214 


000017 


CMP 
BLO 
JSR 


FATFLG,@15. 
999% 
PC .CKDROP 


; 
sTEST 2, SUBTEST 4 


iVERIF IES THAT A OMMAND 
sISSVED WHILE THE TAPE IS POSITIONED JUST BEFORE THE 
RECORD ON 


iFIRST 


108: 


20%: 


Page 76-31 


. WORD 

. WORD 

. WORD 
;LOOP IF SELECTED 


TRAP 
pececececcececes END SUBTEST >>>>>>> >>> 
L10046: 


TRAP 
:IS ERROR COUNT AT 25 
4 IF LESS THAN Ze 
37 TO OROP THE UNI 


SKIP TAPE MARKS REVERSE C 


ON TAPE (BUT NOT AT BOT) CAUSES TAPE 
sSTATUS ALERT ue WITH THE REVERSE INTO BOT 
;(RIB) STATUS BIT SET 


PC, T3OREST 
T3OFCN 
setae 
#65000. ,T 
PC, SOFINIT 
208 

250 


TSOOLY 

10% 

FATFLG 

RO,R1 

ERRNO, SFIERR , SF IMSG 


SEQ 0132 


CsCLPi 


CsESuB 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T2.4: 


TRAP 
T COMMAND PACKET 
sCLEAR FILE COUNTER 
; THER COMMAND PACKET 


‘ HE 
;SET UP DELAY C 
:00 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 
sDELAY ROUTINE CALL 


sBUMP COUNTER 
:BR, IF er COUNTING TO DO 


RROR COUNT 
/CONTENTS. OF TSSR REGISTER 
sFATAL ERROR TSSR WAS | OK 


CsBSUB 


S558. 69E De 
LSOLY,(PC)« 
“(Ped 
"22¢PC) 
--20 


CSsEROF 
241 

SFIERR 
SF IMSG 


cm rs | 


a ee 
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ee & 


Asti testi 
WUOV@~OU2uUNrd 


£ 


036004 
036012 


013737 002174 0636420 MOV UNITN, T3O0SW SET UP _ UNIT NUMBER 
012704 036400 MOV @TSOPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
jOORSAAESEAERESEEEESESEEESEEEEEEESEEEESEEEESEOESESESEEEESE 
: ISSUE WRITE CHARACTERISTICS COMMAND 
WOTOTTTTTTTTTT TTT TT TTT TT TT TT TTT TTT TTTTTTTTTT TTT TTT TTT TTT, 
004737 010742 JSR PC .WRICHR s ISSUE WRITE CHARACTERISTICS 
103407 cs 23% 38R, IF COMMAND ISSUED OK 
37 002214 INC FATFLG sERROR COUNT 
010001 MOV RO,R1 3; SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC —> 
104456 CSERHRD 
000362 "WORD 242 
005052 -WORD UWRTMSG 
012114 -WORD SFIMSG 
23%: CKLOOP ;LOOP IF SELECTED 
104406 TRAP CscLP1 
jORAAAOSEERESEEEEESEEESEEEEESEEESDERESESERESDEEEEEESEDESS 
; ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
WOTTTTTTTT TTT TTT TTTTTTTTTTTTTTTTTTTTTTTTT TTT T TTT TTT TTT 
004737 011074 JSR PC ,REWIND ;CALL_TAPE REWIND COMMAND 
103411 BcS 30$ BR, IF NO PROBLEM 
01 MOV RO,R4 :GET PACKET ADDRESS 
016501 000002 MOV TSSRCRS),.R1 ;GET STATUS REGISTER 
005237 002214 INC FATFLG sERROR COUNT 
ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 
104456 TRAP CSERHRD 
000363 -WORD 243 
040140 -WORD T 
012126 -WORD PKTSSR 
30%: CKLOOP sLOOP IF SELECTED 
104406 TRAP CsCLP1 
jOORSAASEEAESSERESEEREEESEREDEEESEEEEESEERESEOESESEEEESESE 
;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
TTT TTT TTT TT TT TTT TT TTT TTT TTT TT TTT TT TTT TTT TTT TTT TTT TTT TTT 
013701 036430 MOV T3OBFR+6,R1 sPICK UP XSTO 
010102 — MOV R1,R sSET UP EXPECTED 
052702 000002 BIS @BIT1,R2 3SET BOT BIT IN EXPECTED 
020102 CMP R1,R2 sDOES EXP = REC‘'D 
001 BEQ s6R, IF EQUAL (OK) 
00523" 002214 INC FATFLG sERROR COUNT 
ERRHRD ERRNO, TSOBOT ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
104456 TRAP CSERHRD 
000364 -WORD 244 
037741 -WORD T3OBOT 
015554 -WORD EXPREC 





SEQ 0133 


+ ++ +--+ ee +. 
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5642 


.¢) 
5643 


5645 
5647 


104406 
013737 
012737 


012737 


012737 
012737 


003116 036522 
000400 036526 


asec. 036520 


036520 
000000 
016330 
000002 


002214 


000001 
141410 
036520 
000000 


016330 
000002 
100204 


002214 


408: CKLOOP 


;LOOP IF SELECTED 


R 
MOV FREE , TSOWB SET UP GOOD WRITE BUFFER 
MOV #256. ,T30SZ sSET UP SIZE 


FSASSHSSSSSSESSSSASESSESSSEASSEHSSESHSSSSEESSESESSESSESSEEEE 


}WRITE DATA,ACK,CVC*1 COMMAND 


3 
J SSSHSHHEASHSSSHSSSESSHSSSSSSSSSSASSESSSESSSHSESEESESESEESEE 


MOV #140005 , TSOPKS 


sWRITE DATA,ACK,CVC=1 COMMAND 


SEQ 0134 


CSCLP1 


MOV @T3OPK3.R4 :SET UP R4& WITH PACKET ADDRESS 

MOV R4, TSOBC(RS) ;ISSUE COMMAND 

JSR PC. WAITF ;WAIT FOR SSR TO SET 

MOV TSSR(RS),R1 :GET TSSR CONTENTS 

MOV @SSR.R2 ;SET UP EXPECT 

CMP R1,R2 ;ARE THEY E 

BEQ 70% :8R, IF 

INC FATFLG ;ERROR COUN 

ERRHRO ERRNO, T3OWDD,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
TRAP  CSERHRD 
.WORD 245 
"WORD T3OWDD 
"WORD PKTSSR 

708: CKLOOP ;LOOP IF SELECTED 

TRAP = CSCLP1 


SPAAAASESERASEEEESEDESEEEEEDEDEDAEEEEEEEESEEOEREREEREDEEES 
i 
;SKIP TAPE MARK REVERSE ,ACK,CVC=1 COMMAND 


‘ 
§ SSSARSSSHSSSHSESSASESSEHAH+ SHEHSSSSHSSHSHSESESSSASSESESEEESESEESD 


MOV #1, T30WB :@ OF T TO SKIP 
MOV #141410, T30PK3 ;SKIP TAPE MARK REVERSE,ACK,CVC=1 CMD 
MOV @T3OPK3.R4 ;SET UP R4 WITH PACKET ADORESS 

MOV R4, TSDBCRS) ;ISSUE COMMAND 

JSR F ;WAI FOR SSR TO SET 


PC WAIT 
MOV TSSRCRS),R1 
MOV @SSR!BIT2:SC,R2 
CMP R1,R2 
BEQ 160% 
INC FATFLG 
ERRHRD ERRNO, TSOIBU,PKTSSR 


sPICK UP TS 


sWAS STATUS 
:BR, IF TERMINATION WAS GOOD 


160$: CKLOOP sLOOP IF SELECTED 


ZFRKEROERARHREASERHARRARAEHRLEAHMHAEHKAARRERRAAEHGESERALHE SEARS HSH 


;GET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER 


3 
PERERA AREEMARAREALEREHAEREHAEEARERERAKHRERAKARKESHLAL HM ERH 


sERROR COUNT 
sTSSR NOT CORRECT AFTER cee 


SR 
sSET UP EXPECTED (SSR AND SC ONLY) 


CsCLP1 
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- 


013701 
010102 
S2 


036436 


002214 
017262 


016536 
032260 


0000).7 


MOV a Ay +14,R1 


MOV 

BIS @81T0,R2 

CMP R1,R2 

BEQ 1708 - 

ERRHRD ERRNO, TSORIB,EXPREC 
170%: CKLOOP 

ENDSUB 

CMP FATFLG,@15. 

BLO 999% 

JSR PC ,CKDROP 


999%: 
sSUBTEST END 


JSR PC, TSTLOOP 
400% 


BCC 
JMP T3OLOOP 
400%: EXIT TST 


:¢ 
}LOCAL STORAGE FOR THIS TEST 
: . =<, 1026177770 


T3OPACKET : 
-WORD 100004 
“WORD T3ODATA 
-WORD O 
-WORD 10. 
TSODATA: 
-WORD TSOBFR 
-WORD O 
«WORD 20. 
T3OETM: .WORD O 
T300SW: .WORD 0 
TSOBFR: .BLKW 25. 


WRITE SUBSYSTEM MEMORY COMMAND PACKET 
. | #¢, 61026177770 


T3OPK2: 
. WORD 100006 
-WORD T30BF2 
-WORD O 
-WORD 6. 
T3OPK3: 


SEQ 0135 


cre UP XST3 
T UP EXPECTED 
iSET RIB BIT IN EXPECTED 
sD0ES EXP = REC'D 
;8R, IF EQUAL (OK) 
- ROR COUNT 
:TAPE NOT AT RIB 


TRAP CSERHRD 
-WORD 247 
-WORD T3ORIB 
«WORD EXPREC 


;LOOP IF SELECTED 
RAP CSCLP1 
3<<¢<eeee“c<e<e<e END SUBTEST >>>>>>>>>>> 
L10047: 
TRAP CsESUB 
3IS ERROR COUNT AT 25 


3BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


:00 WE NEED TO ITERATE TEST 
RED 


:68R, IF NO LOOP REQUI 

sEXECUTE AGAIN 

sALL DONE THIS TEST 
TRAP CsExIT 
-WORD 110043-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADORESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 

sCHARACTERISTICS DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 

sLENGTH OF MESSAGE BUFFER 
TAPE —s CONTROL 


3SKIP 
sSELECT DRIVE 0 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 
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100205 
003116 
000000 
000000 


000000 
000100 
000200 
000300 
177777 


000000 





T30S3: 
3 


100205 sREREAD COMMAND, IE AND ACK 
_ sADDRESS OF WRITE BUFFER 

0 sSIZE OF BUFFER (EXTENT) 
10 sBSELO AREA 

200 sBSEL1 AREA 

] sSEL 2 AREA 

i] sDATA AREA 


.EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


TSOIMV: 
T3ORN: 


T3OCNT: . 
T3OCNU: 


T30FCN: 
TS3ODLY: 


“WORD 
“WORD 


000000 sNEITHER EWB NOR ESS 

000100 sEWB SET 

000200 sESS SET 

0003 ;B0TH EWB AND ESS SET 

177777 sEND OF DATA 

te) sTAPE TIMER COUNTER STORAGE AREA 
0 sTAPE TIMER COUNTER STORAGE AREA 
0 iFILE NUMBER COUNTER 

0 sDELAY COUNTER STORAGE 


7 
{LOCAL TEXT MESSAGES FOR TEST 


i- 
T30IBU: 
T3ORIB: 
T3OIBT: 
T30: 


‘TSSR Incorrect After SKIP TAPE MARK REVERSE Into BOT’ 
‘RIB Bit CXST3) Failed To Set After Reverse Into BOT’ 
‘TSSR Incorrect After SKIP TAPE MARK REVERSE At BOT’ 

‘TSSR Incorrect After SKIP TAPE MARK Command’ 

‘TSSR Not Correct After WRITE DATA Command’ 

‘Tape Not Positioned On Correct Record After READ REVERSE’ 
'T Not Positioned On Second File First Record’ 

‘TS Incorrect After READ FORWARD Into "File”' 

‘TSSR Incorrect After SPACE Command Into TAPE MARK’ 

‘TSSR Not Correct After Illegal Mode Bits Set’ 

8 Mode Bits. Failed " Set m3 nt In XSTO‘ 


SR Not Correct After SKIP TAPE pe nARKS, At BOT’ 
Tepe Not At BOT After REWIND C 

'TSeR Not Correct After SPACE Fonuano Command’ 

‘TSSR Not Correct After SPACE REVERSE Command’ 

‘Rewind (POSITION) Command Not Accepted’ 

‘Drive 7 Select Failed To Set “OFL” In TSSR’ 

‘TSSR Not Correct After WRITE yo MARK Connand® 

"CVC Set. Didn’''t Reset VCK In Me ooene Buffe 

‘TMK Not Set After WRITE TAPE MARK CRETRY) 





SEQ 01356 


| 
2 
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012701 


036400 
100004 
036410 


000012 
036422 


000024 


000030 
177777 


036520 


036422 


ere Error, Data Read From one Not Equal To Written’ 


TSONEF: .ASCIZ ‘SKIP TAPE MARKS, At BOT 
T3ORRM: .ASCIZ ‘TMK Not Set After READ 

TSORRN: .ASCIZ 

T3ORRP: .ASCIZ ‘TMK Not Set After READ —- 
3ODTR: SCIZ ‘NO Date Trensferred On READ F 
T3OOTA: CIZ ‘Date Con 

TST3OIO: -ASCIZ ip Tape Merks’ 


i 


;ROUTINE TO RESTORE COMMAND — TO START-UP (DEFAULT) VALUES 


sWRITE SUBSYSTEM MEMORY COMMA 
3 
id 


T3OREST: 


SAVREG 
MOV @T3OPACKET, Ri 
MOV #100004, 
MOV @T3ODATA, (Ri)d+ 
CLR Sa 
MOV 0. . CR1 ) + 
MOV STSOBFR CRD» 
CLR CR1)-+ 
MOV #20. ,CR1)+ 
CLR 1)+ 
MOV #0,(R1) 
MOV #24. ,R2 

643: MOV #177777, T3OBFRCR2) 
TST -C(R2) 
CMP #0. ,R2 
BNE 64$ 
RTS PC 

T3ORT2: 
SAVREG 
MOV @T30PK2,R1 
MOV #100006, (R1)+ 
MOV @T30BF2,(R1)+ 
CLR CR1)+ 
MOV @6.,CR1)+ 
CLR (Rid+ 
MOV @T30BF2,R1 
CLR CR1)+ 
CLR (Ri) 
RTS PC 

T3ORTS: 
SAVREG 
MOV @T3OPK3,R1 
CLR CR1)+ 
CLR C(R1)+ 
CLR CR1I)+ 
CLR R1) 
RTS 4 
ENDTST 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 

S OF F GHARAISTIcs DATA BLOCK 


sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE ZERO 
LOCATIONS TO * © ee 
sALL ONES TO MESSAGE BUFFE 
sNEXT LOCATION 
sCHECK R2 FC? DONE 
;KEEP GOING UNTIL GONE 
sRETURN 


sSAVE_ THE orate res 

iST ART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 

;EXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE REGISTERS 
sSET UP POINTER ADORESS 
sCOMMAND SPA 


SP 
ADDRESS OF DATA BLOCK 
sEXTENDED ADOR 

sSIZE OF DATA TRANSFER BLOCK 
sRETURN 


L10043: 
TRAP 


CsETST 


SEQ 0137 
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| SEQ 0138 
TEST 3: NO-OP (“CLEAN TAPE”) AND INITIALIZE 
goes -SBTTL TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 
3¢ 
5866 3 
5867 sTHIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE”) AND INITIALIZE 
zoe sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA) 
586 3 
5870 3 
gota ;THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 
; 
5873 3 
5874 8 
5875 s- 
5876 041332 BGNTST 
041332 T3:: 
5877 041332 012737 006354 002172 MOV scent pares sPRIMARY ERROR MESSAGE 
5862 041340 012700 046443 MOV @TST311D,R sASCII MESSAGE TO IDENTIFY TEST 
5883 041344 004737 016570 JSR PC, Tetertoe 300 INITIAL TEST SETUP 
5884 041350 012737 000005 002210 MOV #5 ,LOOPCNT sPERFORM 5S ITERATIONS 
sone 041356 CO0S037 043236 CLR T3iCNT sCLEAR TAPE RECORD COUNTER 
3 
5887 i- 
5888 
5889 041362 T31LO0P; 
5890 3¢ 
5891 3 
3035 ;TEST 3, SUBTEST 1 
3 
5894 ; VERIFIES THAT THE NO-OP coon (CORRESPONDS TO THE CLEAN TAPE 
5895 3 COMMAND) TERMINATES PROPERLY (NORMAL TERM peri) STORES PROPER 
5896 ; STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COMMAND), AND 
5897 ; INDEED DOES NOT MOVE TAPE. THE TAPE IS FIRST REWOUND AND 
5898 3 WRITTEN WITH SEQUENCED TEST RECORDS. IT IS THEN REWOUND AGAIN 
5899 3 AND THE NO-OP COMMAND IS ISSUED. IT IS VERIFIED THAT THE TAPE 
5900 3 IS STILL AT BOT AND THAT PROPER STATUS IS STORED. THE FIRST 
5901 ; RECORD ON TAPE IS READ AND VERIFIED “Te CHECK TAPE POSITION AND 
5902 3 VERIFY THAT DATA WAS NOT CHANGED), T THE NO-OP COMMAND IS 
Fas 8 ISSUED AGAIN AND STATUS AND POSITION VERIFIED. 
3 
5905 3 
5906 3 
5907 3 
5908 3 
5909 3 
5910 3° 
5911 041362 BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
041362 T3.1: 
041362 104402 TRAP csBsuB 
5912 041364 004737 046510 JSR PC, T31REST T COMMAND PACKET 
5913 041370 004737 046602 . JSR PC, T31iRT]) eer UP OTHER COMMAND PACKET 
5914 041374 004737 046644 JSR PC, T31RT3 sSET UP OTHER COMMAND PACKET 
5915 041400 012737 176750 043242 MOV 065000. , T31DLY sSET UP DELAY COUNTER 
5916 041406 004737 016054 10$: JSR PC, eal INIT 3:00 ATTIAIZe ON CONTROLLER 
5917 041412 103426 Bcs 20% 368R IF INIT WAS OK 
5918 041414 DELAY 250 sDELAY ABOUT .25 SEC 
041414 012727 000250 MOV @250,(PC)+ 
041420 000000 


041422 013727 002116 MOV LSOLY.(PC)+ 
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5928 041476 
} 041 
$930 041 
$931 041510 
5935 041514 
5936 041516 
041516 
041520 
041522 
041524 
5937 041526 
041526 
5938 041530 
5939 041534 
041536 
5941 041540 
5945 041544 
041544 
041546 
041550 
041552 
5946 041554 
041554 
5947 041556 
5948 041562 
5949 041564 
5950 041570 
5951 041572 
5952 041574 
5956 041600 
041600 
041602 
041604 
041606 
5957 041610 
041610 
5958 041612 
5959 041 
5960 041 
5961 041632 
041636 
5963 041642 


(“CLEAN 
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TAPE") AND INITIALIZE 


177772 
177756 
043242 
002214 


002174 
043070 
010742 


002214 


043110 20%: 


23%: 
011074 


002214 


40%: 
003116 
40005 


1 

043210 
000144 
017502 
000144 043216 


043212 
043210 65%: 


T310LY 

10% 

FATFLG 

RO,R1 

ERRNO, SFIERR , SF IMSG 


UNITN, T310SW 
@TSLPACKET,R4 
PC,WRTCHR 


23% 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SFIMSG 


PC ,REWIND 
30% 


FATFLG 
ERRNO, T31RWN,PKTSSR 


T31BFR+6,R1 
B1T1,R2 
R1,R2 


FATFLG 
ERRNO, T3180T ,EXPREC 


FREE, T31WB 


#100., 
PC FILLMEM 
#100. ,T31SZ 


SEQ 0139 
. WORD 
bEC -6(PC) 
BNE -4 
DEC 22¢PC) 
BNE -=20 
sBUMP COUNTER 
i8R, IF COUNTER NOT DONE 
OR COUNT 
SCONTENTS OF TSSR REGISTER 
;FATAL ERROR TSSR WAS NOT OK 
CSERDF 
: SFIERR 
“WORD  SFIMSG 
;SET UP UNIT NUMBER IN PACKET 
;SUBROUTINE NEEDS PACKET ADDRESS 
}ISSUE WRITE CHARACTERISTICS 
i8R, IF COMMAND ISSUED OK 
o 
;SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTISC FAILED 
TRAP  CSERHRD 
“WORD 302 
“WORD WRTMSG 
“WORD SFIMSG 
;LOOP IF SELECTED 
TRAP —- CSCLP41 
;CALL TAPE REWIND COMMAND 
BR. IF NO PROBLEM 
SET UP REWIND PACKET ADDRESS 
ERROR COUNT 
;REWIND NOT ACCEPTED 
TRAP —- CSERHRD 
.WORD 303 
"WORD T3IRWN 
"WORD PKTSSR 
;LOOP IF SELECTED 
TRAP C$CLP1 
;PICK UP XSTO 
SET UP EXPECTED 
SET BOT BIT IN EXPECTED 
;DOES EXP = REC'D 
iBR, IF EQUAL CoK) 
ee OR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP —_ CSERHROD 
.WORD 304 
“WORD T31i80T 
"WORD EXPREC 
;LOOP IF SELECTED 
TRAP — CSCLP1 
1STARTING WRITE BUFFER ADDRESS 
{WRITE DATA. CVC*1, ACK COMMAND 
3SET UP R PACKET ADORESS 
TDATTERNCIN CORRECT REGISTER 


SET 
sFILt MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
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SEQ 0140 
| TEST 3: NO-OP (“CLEAN TAPE“) AND INITIALIZE 
' 
| $964 041650 010465 000000 MOV R4, TSOBCRS) sISSUE COMMAND 
| §965 041654 004737 016330 JSR PC. WAITF WAIT FOR SSR TO SET 
| 5966 041660 016501 000002 MOV TSSRCRS). RL :GET TSSR CONTENTS 
|  §967 041664 012702 000200 MOV @SSR,R2 SET UP EXPECTED 
| §968 041670 020102 CMP R1,R2 sARE THEY EQUAL 
| §969 041672 001406 BEQ 80% :6R, IF 
5970 041674 005237 002214 INC FATFLG ERROR COUNT 
5974 041700 ERRHRD ERRNO, T31WOC,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
041700 104456 TRAP CSERHRD 
041702 000461 .WORD 305 
041704 045130 “WORD T31WOC 
041706 012126 [wORD PKTSSR 
5975 041710 808: CKLOOP ;LOOP IF SELECTED 
041710 104406 TRAP = CSCLP1 
5976 041712 004737 011074 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
5977 041716 103407 Bcs 230 36R, NO PROBLEM 
5978 041720 010001 MOV RO,R1 ;SAVE TS 
5979 041722 005237 002214 INC FATFLG ;ERROR COUNT 
5983 041726 ERRHRD ERRNO, T31RWN,EXPREC ;REWIND NOT ACCEPTED 
041726 104456 TRAP  CSERHRO 
041730 000462 .WORD 306 
041732 044574 "WORD T31RWN 
041734 015554 “WORD EXPREC 
$984 041736 230%:  CKLOOP ;LOOP IF SELECTED 
041736 104406 TRAP CSCLP1 
5985 041740 013701 043120 MOV T31BFR+6.R1 sPICK UP XSTO 
5986 041744 010102 MOV R1,R2 ;SET UP EXPECTED 
5987 041746 052702 000002 BIS eeimi. R2 :SET BOT BIT IN EXPECTED 
5988 041752 020102 CMP R1,R2 ;D0ES EXP = REC'D 
5989 041754 001406 BEQ 2408 BR, IF EQUAL (OK) 
5990 041756 005237 002214 INC FATFLG sERROR COUNT 
5994 041762 ERRHRD ERRNO TS1BOT.EXPREC ;TAPE NOT AT BOT AFTER REWIND 
041762 104456 TRAP  CSERHRD 
041764 000463 .WORD 307 
041766 044245 "WORD 13180T 
041770 015554 “WORD €EXPREC 
5995 041772 240%: CKLOOP ;LOOP IF SELECTED 
041772 104406 TRAP = CSCLP1 
5996 041774 012737 041012 043210 265%: MOV 0041012, T31PK3 ;NO-CP,CVC=1 COMMAND 
5997 042002 012704 043210 MOV @T31PK3,R4 3SET UP R4 WITH PACKET ADDRESS 
5998 042006 010337 043216 MOV R3,131SZ 3SET UP RECORD SIZE IN PACKET 
5999 010465 000000 MOV R4, TSOBCRS) ISSUE COMMAND 
6000 042016 004737 016330 JSR PC. WAITF ;WAIT FOR SSR TO SET 
6001 042022 016501 000002 MOV TSSR(RS).R1 :GET TSSR CONTENTS 
6008 042026 012702 000200 MOV @SSR.R2 3SET UP EXPECTED 
6003 042032 020102 CMP R1,R2 ;ARE THEY EQUAL 
6004 042034 001406 BEQ 2808 :BR, IF OK 
6005 042036 005237 0u2214 INC FATFLG ERROR COUNT 
6009 042042 ERRHRD ERRNO, T31ROF ,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
042042 104456 TRAP  CSERHROD 
042044 . WORD 
042046 043443 "WORD T31ROF 
042050 012126 "WORD PKTSSR 
6010 042052 280%: CKLOOP ;LOOP IF SELECTED 
042052 104406 TRAP = CSCLP1 
6011 042054 013701 043120 MOV T31BFR+6,R1 ;PICK UP XSTO 


6012 042060 010102 MOV R1,R2 sSET UP EXPECTED 





NO -OP 


TEST 1 - HARDWARE TEST 


TEST 3: ¢ “CLEAN 
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TAPE“) AND INITIALIZE 


002214 


140001 
043210 
000144 


000000 
016330 
000002 


002214 


140720 
000144 


002214 


002214 
017262 


043210 
043216 


000017 


BIS @61T1,R2 

CMP R1,R2 

BEQ 285% 

INC FATFLG 

ERRHRD ERRNO, T31B80T,EXPREC 
285%: CKLOOP 

MOV #140001, T31PK3 

MOV @T31PK3.R4 

MOV #100. ,131SZ 

MOV R4, TSOBCRS) 

JSR PC; WAITF 

MOV TSSR(RS).R1 

MOV @SSR.R2 

CMP R1,R2 

BEQ 2908 

INC FATFLG 

ERRHRD ERRNO, TS1RDE,.PKTSSR 
290%:  CKLOOP 

MOV OFREE.R1 

MOV #100. .R2 

CMP R1,R2 

BEQ 3308 

INC FATFLG 

ERRHRD ERRNO, TS1WNG,EXPREC 
330%: 

ENDSUB 

CMP FATFLG, #15. 

BLO 3 

JSR PC, CKDROP 
9998: 


3¢ 


TEST 3, SUBTEST 2 


VERIF IE 


ALREADY 


TAGNOSTIC ERRORS ARE PRE 
HAVE BEEN DETECTED IN PREVIOUS TESTS). 


:SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
i8R, IF EQUAL COK) 
ERROR COUNT 
; TAPE note AT BOT AFTER REWIND 


CSERHRD 

“horo $09 
"WORL T3180T 
"WORD  EXPREC 

;LOOP IF SELECTED 
TRAP CSCLP1 

:READ. ACK .CVC=1 COMMAND 

SET UP R4 WITH PACKET ADORESS 

iSET UP RECORD SIZE IN PACKET 

a 

iWAIT S 

GET TSSR CONTENTS 

SET UP EXPE 

SARE THEY EQUAL 

;8R, IF OK 

ERROR COUNT 

:TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRO 
\WORD $10 
“WORD TSIROE 
“WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

GET DATA READ 

}READ EXPECTED 

‘DID TAPE STAY POSITIONED 

‘8R, IF EXPD = RECD 


ERROR COUNT 
:TAPE DATA NOT CORRECT 
TRAP — CSERHROD 


-WORD 311 

-WORD T31WNG 

-WORD EXPREC 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


i: 


TRAP 
sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


CsESsuB 


THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, 
NO MICROD 


SENT (THEY WOULD 
THE TEST 


SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 


; 
; 
: 
; ASSUMT 
; 
: 
5 
: 


SEQ 0141 
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SEQ 0142 
| TEST 3: NO-OP (“CLEAN TAPE") AND INITIALIZE 


6063 ’ 
6064 ‘- 
6065 042240 BGNSUB 3>>>>>>2>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
042240 -2: 
042240 peepe | TRAP Cs6sus 
042242 004737 046510 JSR PC, T3IREST sSET COMMAND PACKET 
6067 042246 004737 046602 JSR PC, T3iRT2 sSET UP OTHER COMMAND PACKET 
6068 042252 004737 046644 JSR PC, T31RTS sSET UP OTHER COMMAND PACKET 
6069 042256 004737 016054 PC, SOF INIT 300 INITIALIZE “2. CONTROLLER 
6070 042262 103407 6cs 208 s6R IF INIT WAS OK 
6071 042264 005237 002214 INC FATFLG ERROR COUNT 
6075 042270 010001 MOV RO,R1 ;CONTENTS OF OF TSSR REGISTER 
6076 042272 ERROF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
042272 104455 TRAP CSEROF 
pares th 000470 «WORD 312 
76 003646 -WORD SFIERR 
300 Siesis -WORD SFIMSG 
6077 042302 013737 002174 043110 20%: MOV ee 3SET UP UNIT NUMBER IN PACKET 
6078 042310 Ci2704 0435070 MOV eTSIPACKeT A sSUBROUTINE NEEDS PACKET ADORESS 
6079 042314 004737 010742 JSR sISSUE WRITE CHARACTERISTICS 
60860 042320 103407 6cs ose 36R, IF COMMAND ISSUED OK 
6081 042322 005237 002214 INC FATFLG sERROR 
6065 042326 010001 MOV RO,R1 pep CONTENTS OF TSSR 
6086 042330 ERRHRD ERRNO,WRIMSG, SFIMSG WRITE CHARACTERISTISC —> 
042330 104456 CSERHRD 
042332 000471 THORD 313 
042334 005052 -WORD WRTMSG 
042336 012114 WORD SFIMSG 
6087 042340 23%: CKLOOP sLOOP IF SELECTED 
042340 104406 TRAP CsCLP1 
6088 042342 004737 011074 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
60869 042346 103407 6cs 30% 36R, IF NO PROBLEM 
6090 042350 010004 MOV RO,R4 SET UP REWIND PACKET ADDRESS 
6091 0423 005237 002214 INC FATFLG 3 OUNT 
6095 0423 ERRHRD ERRNO, T31RWN,PKTSSR sREWIND NOT ACCEPTED 
042 104456 CSERHRD 
042360 000472 314 
042362 044574 -WORDB T3 
042364 012126 i PKTSSR 
6096 042366 308: CKLOOP sLOOP IF SELECTED 
042366 104406 TRAP CSCLPi 
6097 042370 013701 043120 MOV T31BFR+6,R1 sPICK UP XSTO 
6098 042374 010102 MoV 3SET UP EXPECTED 
6099 042376 052702 000002 BIS @68iT1,R2 sSET BOT BIT IN EXPECTED 
6100 042402 020102 CMP R1,R2 sD0ES EXP = REC'D 
6101 042404 001406 BEQ 408% 38R, IF EQUAL (OK) 
6102 042406 905237 002214 INC FATFLG ——e COUNT 
6106 042412 ERRHRO ERRNO, T3180T,EXPREC sTAPE NOT AT BOT AFTER REWIND 
042412 104456 TRAP CSERHRD 
042414 000473 -WORD 315 
042416 044245 -WORD T3180T 
042420 015554 -WORD EXPREC 
6107 042422 40%: CKLOOP sLOOP IF SELECTED 
104406 TRAP CSCLP1 
6108 042424 013737 003116 0435212 MOV FREE ,. T3108 sSTARTING WRITE BUFFER ADORESS 
6109 042432 012737 140005 043210 65%: MOV #140005 , T31PK3 sWRITE DATA,CVC=1,ACK COMMAND 
6110 042440 012704 043210 MOV @T31PK3,R4 3SET UP R4 WITH PACKET ADORESS 
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TEST 3: NO-OP (“CLEAN TAPE") AND INITIALIZE 
000144 
017802 
000144 
000000 
016330 
000002 
000200 


043216 


002214 


011074 


002214 


2308: 


2408: 
043210 265%: 
oaszis 








7 2 pre 2 
3 8 


2 
S 


#100. .RO 
PC. FILLMEM 
#100. , 131SZ 
R4,T TSOBCRS) 
PC,WA 
TSSRCR3).R1 
Ri hae 

204 


FATFLG 
ERRNO, TS1WOC ,PKTSSR 


ERRNO, TS1RWN, EXPREC 


TS1BFR+6,R2 
@8iT1.R2 
R1,R2 


FATFLG 
ERRNO , TS1B0T ,EXPREC 


0041012, T31PK3 
OT31PKS.R4 
RS. T3182 
- TS0BCRS) 
PesuntT 


Ri 


ERRNO, TSIROF ,.PKTSSR 


3SET PATTERN IN —_— REGISTER 


sFILL MEMORY WITH RECORD S 
iSET UP RECORD SIZE IN PACKET 


IGET TSSR CONTENTS 
iSET UP E 
1ARE THEY 
i8R, IF OK 
ERROR COUNT 
:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHROD 
“WORD 316 
"WORD TS31MDC 
“WORD PKTSSA 
LOOP IF SELECTED 
TRAP CSCLP1 
CALL TAPE REWIND COMMAND 
o e 
iSAVE TSSR 
;ERROR COUNT 
REWIND NOT ACCEPTED 
TRAP — CSERMRO 
WORD «317 
“woRD | TSunuy 
WORD c 
;LOOP IF SELECTED 
TRAP CSCLPA 
sPICK UP XSTO 
ISET UP EXPECTED 
SET BOT BIT IN EXPECTED 
‘DOES EXP = REC’ 
i@R, IF EQUAL (OK) 
sERROR COUNT 
TAPE NOT AT BOT AFTER REWIND 
TRAP OC 
WORD 318 
“WORD Pree 
sLOOP IF SELECTED 
TRAP CCL 


8 TIAL eCVC=1 COMMAND 

5 Up Ae ugyn PaEKeT ADORESS 
+ Fg RECORD SIZE IN PACKET 
oWATT FOR SSR TO SET 

sGET TSSR CONTENTS 

3sSET UW EXPECTED 

sARE THEY EQUAL 

s6R, IF Ox 


LTSSR INCORRECT AFTER READ AD DATA 


sLOOP IF SELECTED 


TSinor 





SEQ 0143 
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TEST 3: NO-OP (“CLEAN 


043120 
000002 


002214 


140106 
000144 


002214 


002214 
017262 


016536 
041362 





043210 
043216 


000017 


TAPE”) AND INITIALIZE 


2853: 


2908: 


3308: 


EXIT 


PE A oe *6,R1 
cei. R2 


FATFLG 
ERRNO, T31B0T ,EXPREC 


#140001 , T31PK3 


PCW 
TSSRCRS),R1 
@SSR ,R2 


FATFLG 
ERRNO, T31RDE ,PKTSSR 


@FREE ,R1 

#100. ,R2 

R1,R2 

330% 

FATFLG 

ERRNO, T31WNH,EXPREC 


FATFLG,@15. 
999% 
PC ,CKDROP 


PC, TSTLOOP 
163% 
T31L00P 
TST 


SEQ 0144 
TRAP CSCLP1 
3PI a” 4 WP Aste. 
3SE i 
SET BOT “Ort In O EXPECTED | 
sD0ES EXP = REC'D j 
:8R, IF EQUAL (OK) 
sERR COUNT 
3 TAPE NoT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 320 
. WORD T3180T 
WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
eer ACK ,CVC=1 COMMAND 
UP R4 WITH PACKET ADDRESS 
SET Up RECORD SIZE IN PACKET 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
sSET UP EXPECTED 
THEY EQUAL 
3 ° 
;ERROR COUNT 
3TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 321 
. WORD T31RDE 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPi 
;GET DATA READ 
sREAD EXPECTED 
:DID TAPE STAY POSITIONED 
;BR, EXPO = RECO 
sERROR COUNT 
3 TAPE POSITION NOT CORRECT AFTER INIT 
TRAP CSERHRD 
. WORD 322 
. WORD T31WNH 
. WORD EXPREC 
3>2>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L100S2: 
TRAP CsEsus 
:IS ERROR COUNT AT 25 
;B8R, IF LESS THAN 25 
;TRY TO DROP THE UNIT 
3:00 WE NEED TO ITERATE TEST } 
:BR, NO LOOP REQUIRED | 
;EXECUTE AGAIN 
;ALL OONE THIS TEST 
TRAP CsExIT 


EE eee 
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TEST 3: 





100205 
102205 
177777 


000000 
000000 
000000 


("CLEAN TAPE") AND INITIALIZE 


:° 
sLOCAL STORAGE FOR THIS TEST 


+31PACKET: 
WORD 100004 
“WORD T31DATA 
“WORD 0 
“WORD ‘10. 
T3IDATA: 
WORD TS16FR 
“WORD 0 
"WORD 20. 
WORD 0 


T310SW: .WORD 0 
T31BFR: .BLKW 25. 


a 
{WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.*«, #10>€177770 


T31PK2: 
WORD 100006 
“WORD T31BF2 
"WORD 0 
"WORD 6 

T31PK3: 
WORD 100005 

T31R8 

T31W8: .WORD FREE 
"WORD 

131SZ: [WORD 0 
.EVEN 

o 

7 

1318F2 

T318S0: .BYTE 10 

131851: ‘6YTE 200 

131S2: ‘WORD © 

13183 r) 


EVEN 
;TAPE MOTION PACKET COMMAND VALUES 
T31RN: .WORD 100205 
; 100605 
102205 
“WORD 177777 
T31CNT: .WORD © 
T3iCNU: [WORD 0 
T31DLY: WORD 0 
3° 
;LOCAL TEXT MESSAGES FOR TEST 


SEQ 0145 


-WORD 110050-. 


sCOMMAND PACKET FOR TEST 

sWRITE CHARACTERISTICS COMMAND, WITH . ACK 
sADORESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 

te oF mate DATA BLOCK 

sADORESS OF MESSAGE BUFFER 

;LENGTH OF MESSAGE BUFFER 


atthe ORIVE ° 
MESSAGE BUFFER 


;WRITE SUB SYS MEM COMMAND. AND ACK 
;ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


;REREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sBSELO AREA 


;REREAD DATA (NEXT) 
sREREAD DATA RETRY 
;WRITE CONTINOUS 
;END OF DATA 


;TAPE TIMER COUNTER STORAGE AREA 
;TAPE TIMER COUNTER STORAGE AREA 
;DELAY COUNTER 
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6273 
6274 


6275 043244 
6276 043310 
6277 043571 
6278 043445 
6279 043512 
6280 04360 
esos 043671 
6283 044016 
62 


6285 044133 
04424 


012701 
te) 


005021 
012711 
012702 


043070 
100004 
043100 


000012 
043112 


000024 


000000 
000030 


123 


T3IWRF: . 
T310TA: .A 


TST3110: 


3¢ 


SEQ 0146 


*TSSR Not Correct After READ Commend’ 
‘Tape Position Incorrect After INITIALIZE Command’ 
a Position Incorrect After Commend’ 
‘TSSR Incorrect After READ DATA Commend’ , 
"REREAD Previous (Spece Reverse, Read Forward) Command Fai led’ 
‘POSITION (Spece Commend) Failed, TSSR Not Correct’ 
‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
*TSSR Not Correct After Illegel Mode Bits Set’ 
aeons Mode Bits, —— To. Set ILC Bit In xXSTO’ 
"REREAD COMMAND Not Ac “yo we 
*‘TSSR Not Correct After OP (“CLEAN TAPE”) AND INITIALIZE Commend,At BOT’ 
‘Tape Not At oor After REWIND Commend (BOT Not Set In XSTO)’ 
*NO-OP (“CLEAN TAPE“) AND INITIALIZE'‘S Erese Tape Not Long Enough’ 
"REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
*TSSR Not Correct After REREAD COMMAND Reject’ 
‘Rewind (POSITION) Command Not Accepted’ 
‘RAM Error, Correct Dete Pettern Not In Ren’ 
‘TSSR Init. Failed After REREAD COMMAND’ 
‘Drive 7 Select Feiled To Set eA In TSSR‘ 
‘TSSR Not Correct After REREAD DAT A Commend, SWB Bit Set’ 
‘TSSR Not Correct After REREAD DATA Command ae 
= 


vCK In Dara ee 

‘TSBA Not Correct After REREAD DATA Command’ 
‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 

‘Reading Long Record Feiled To Set RiL Bit In XSTO' 

‘Reading L Record Feiled To Set RLS Bit In XSTO' 

Hath pag Byte Count Incorrect After Short Record Read’ 

‘Reedi Record Feiled To Give Tepe Stetus Alert’ 

‘NO-OP “CL E TAPE”) AND INITIALIZE, At First Record, Failed To Set RIB Bit 


‘TSSR Not Correct After SPACE RECORDS Soseent 

*‘TSSR Not Correct After NO-OP (“CLEAN Tees oe INITIALIZE, Into BOT’ 
‘TSSR Not Correct After NO-OP ("CLEAN TAPE”) AND INITIALIZE Comenand’ 
‘Dete 2 compere fe Error, Date Read From T Not Equel To Written’ 

-ASCIZ ("Clean Tape”) And INITIALIZE’ 


jal TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 


TS1IREST: 


sSAVE_THE REGISTERS 
T OF THE PACKET 


pth 6 ee gy SE R1 STAR 
#100004 , (Ri) sWRITE SUBSYSTEM MEM. WITH ACK, 
@T310ATA,(Ri)> sADORESS OF CHARAISTICS DATA BLOCK 
C(R1)+ SEXT ENDED ADDRESS 
#10. ,C(R1)+ sSIZE OF DATA BLOCK IN BYTES 
Fiste h enna sADORESS OF MESSAGE BUFFER 
° 
+: +4 aaa sLENGTH OF MESSAGE BUFFER 
7 
#0,(R1) sSELECT ORIVE ZERO 
#24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 


TEST 1 - HARDWARE TEST 


TEST 3: NO-OP 


6330 046562 

6331 046570 

6332 046572 

6333 046576 

6334 046600 

6335 

6336 046602 

6337 046602 
046606 

6339 046612 
046616 

6341 046622 

6 046624 

6343 046630 

6 046632 

6345 046636 
046640 

6347 046642 

6 046644 

6349 046644 

6350 046650 

6351 046654 

6352 046656 

6353 046660 

6354 046662 

6355 046664 

6356 046666 
046666 
046666 

6357 

6358 

6359 

6360 

6361 

6362 

6363 

6364 

6365 

6366 

6367 

6368 

6369 

6370 

6371 

6372 

6373 

6374 

6375 

6376 

6377 

6378 

6379 

6380 

6381 

6382 

6383 

6384 


005021 
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000000 


043210 


TS1IRT2: 


T31iRTS: 


oe @2 Ge Ge Ge os Ge GF Ge Ge Ge Gs Ge GF Gs GF Ge GF Gs Ge Gs Gs os Ge Ge OF oe 


(“CLEAN TAPE“) AND INITIALIZE 
177777 643112 64%: 


* 


MOV 177777, T31BFRCR2) sALL ONES TO MESSAGE BUFFER 
TST -(R2) ar LOCATION 
CMP 00 ,R2 AT END OF LOOP YET 
BNE 64% iKEEP GOING UNTIL DONE 
RTS PC sRETURN 
SAVREG sSAVE THE ee ar Bh a 
MOV @T31PK2,R1 sSTART OF THE PACKET 
MOV #100006 ,,(R1)+ sWRITE we MEM. WITH ACK, 
MOV @T316F2,C(R1)-+ sADDRESS OF DATA BLOCK 
CLR CR1)-+ sEXTENDED ADDRESS 
we +: EN aaa sSIZE OF DATA BLOCK IN BYTES 
+ 
MOV @T318F2,R1 sPOINT TO DATA SEL AREA 
CLR CR1)+ 
CLR CR1) 
RTS PC sRETURN 
SAVREG sSAVE REGISTERS 
MOV @T31PK3,R1 sSET UP POINTER ADDRESS 
CLR CR1)-+ sCOMMAND SPACE 
CLR CR1)>+ sADDRESS OF DATA BLOCK 
CLR CR1)-+ FEXT ENDED 
CLR (R1) sSIZE OF DATA TRANSFER BLOCK 
RTS PC ;RETURN 
ENDTST 
L10050: 
TRAP CsETST 
SBTTL TEST 4: Erase And Operation Incomplete 


VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY ANDO ACTUALLY ERASES TAPE. 
THE FOLLOWING TEST SEQUENCE IS PERFORMED: 


1. THE TAPE IS FIRST REWOUND, SEVERAL ey RECORDS ARE 
WRITTEN, ANDO THE TAPE IS REWOUND AGAIN 


2. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 


3. NORMAL ee IS VERIFIED AND STATUS IS CHECKED 
(BOT SHOULD BE 0). 


4. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
THE COMMAND TERMINATES WITH TAPE STATUS ALERT, THAT THE 
REVERSE abe. BOT (RIB) STATUS BIT IS SET NO 
DATA IS TRANSFERRED. THIS DEMONSTRATES THAT NO DATA 
— Soares IN THE AREA ERASED BY THE ERASE 


SEQ 0147 
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012737 


006354 
052540 
016570 
000005 
051410 


002116 
177772 
1/7756 
051414 
002214 


002172 


002210 


051414 





SEQ 0148 
3 
; 
sTHE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 
; 
; 
3 
: BGNTST "a 
MOV #EPRT1, EPRTSW ;PRIMARY ERROR MESSAGE 
MOV @TST3210,R sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSetuP 300 INITIAL TEST SETUP 
MOV 05, LOOPCNT ;PERFORM S ITERATIONS 
CLR T32CNT sCLEAR TAPE RECORD COUNTER 
3? 
iTeST 4, SUBTEST 1 
' 
i VERIFIES THAT A Erase And Operation rma ty COMMAND ISSUED WHILE 
;THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
3; TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF ) 
sERROR BIT SET. 
3 
; 
| 
T32LOOP : 
F 
; 
. BGNSUB 3 >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
ei: 
TRAP Cs6sus 
JSR PC, T32REST 3;SET COMMAND PACKET 
JSR PC, T32RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC,T32RT3 ;SET UP OTHER COMMAND PACKET 
MOV 06 .»T32D0LY ;SET UP DELAY COUNTER 
108%: JSR PC ,SOFINIT :D0 INITIALIZE ON CONTROLLER 
Bcs 20$ ;BR IF INIT WAS OK 
DELAY 250 sDELAY ABOUT .25 SEC 
MOV #250,(PC)-+ 
. WORD 
MOV LSOLY,CPC)-+ 
. WORD 0 
DEC ~6CPC) 
BNE 
DEC "32PC) 
BNE .--20 
DEC T320L*/ ;BUMP COUNTER 
BNE 10$ ;BR, IF COUNTER NOT DONE 
INC FATFLG sERROR COUNT 
MOV RO,R1 ; CONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
T . CSERDF 


401 
-WORD SFIERR 
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047024 012114 
026 002174 051250 
051230 
010742 
002214 


012 414 


047064 104406 

7066 004737 
103411 
010004 


016501 0002 
cos237 2214 


011074 


€90400 
003116 
40005 


1 
051250 
051356 


000000 
016330 
000002 
000200 


051352 
051350 


002214 


001002 
011074 
000002 
002214 


20%: 


26%: 


27%: 


28%: 


UNITN, eB 
@T3cPACKET,R 

PC ,WRKTCHR 

258 

FATFLG 

RO,R1 

ERRNO, WRTMSG, SF IMSG 


PC REWIND 
26% 


RO,R4 
TSSRCRS), oR1 
ERRNO, TS2RWN,PKTSSR 


#256. ,R3 

FREE, T32WB 
#140005, T32PK3 
@T32PK3,R4 

R3, 13252 
R4, Ms Nala 
PC, ,WAITF 
TSSR(RS) RL 
@SSR ,R2 


28% 
FATFLG 
ERRNO, TS2WOC ,PKTSSR 


CR3)+ 
ap sas. 


27% 
Se 
TSSRCRS),R1 
RO,R4 


FATFLG 
ERRNO, T32RWN, PKTSSR 


-WORD SFIMSG 
SET UP ORIVE NUMBER 
sSUBROUTINE NEEDS PACKET ADORESS 


s ISSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 
sERR OUNT 
sSAVE CONTEN TS OF TSSR 
sWRITE CHARACTERISTISC "> 
TRAP CSERHRD 
-WORD 402 
-WORD WRTMSG 
-WORD SFIMSG 
;LOOP. IF SELECTED 
TRAP CsCLP1 
sCALL_TAPE REWIND COMMAND 
388, IF NO LEM 
sSET UP REWIND PACKET ADDRESS 
sGET TSSR NTS 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 403 
-WORD T32RWN 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 


sSTARTING RECORD SIZE 
sSTARTING WR 


. ACK COMMAND 
3SET UP PACKET ADDRESS 


3; ARE 
3BR, 
ERROR COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
\WORD 404 
“WORD T32wo0C 
"WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 


sBUMP RECORD cayeren 


PROB 

CONTENTS 

;SET UP RenaoR im i ADDRESS 
;REWIND NOT ACCEPTED 


TRAP CSERHRD 
-WORD 405 
- WORD 


SEQ 0149 
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6485 047252 


72 
6536 047476 


And Operation Incomplete 


012126 


002214 


051260 
000002 


002214 


003116 
140401 
0v0400 


051350 
000000 
016330 
000002 
100204 


002214 


051350 


051352 


308: 


40$: 


55%: 


I 
ERRHRD 


T32BFR+6,R1 

R1,R2 

BiT1,R2 
1,R2 


40$ 
FATFLG 
ERRNO, TS2B0E , EXPREC 


#140411, T32PK3 
@TS2PK3,R4 

Re’ TSDBCRS) 
TSSRCRS).R1 
@SSR,R2 

R1,R2- 

508 


FATFLG 
ERRNO, TS2ERA,PKTSSR 


[eeeens. Ri 
R1,R2 

oBiT1,R2 

R1,R2 


FATFLG 
ERRNO, T32B0E , EXPREC 


FREE, T32RB 
$140401, T32PK3 
56. , 13252 


TSSR(RS),R1 
@SSR!SC!BIT2,R2 
R1,R2 


FATFLG 
ERRNO, TS2TSA,PKTSSR 


SEQ 0150 
{ 
-WORD PXTSSR 
sLOOP IF SELECTED } 
TRAP CSCLP1 } 
sPICK UP XSTO 
sSET UP_EXPECTED 
sSET BOT IT IN EXPECTED 
sDOES EXP = REC'D 
sBR, IF EQUAL (OK) 
‘ OUNT 
sTAPE AT BOT AFTER ERASE 
TRAP CSERHRD 
-WORD 406 
-WORD T32B0E 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


;ERASE TAPE . CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


3SET UP EXPEC 
sARE THEY 
;8R, IF 
sERROR COUNT 
sTSSR INCORRECT AFTER ERASE DATA 
TRAP CSERHRD 
-WORD 407 
- WORD T32ERA 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XSTO 
3SET UP EXPECTED 
3SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
sERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 408 
- WORD T32B0E 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
sADDRESS OF BUFFER 
;READ REVERSE ,ACK,.CVC=1 COMMAND 
3SET UP THE Size OF RECORD 
sSET UP R4 WITH PACKET ADDRESS 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED TAPE STATUS ALERT 
+ ue EQUAL 
3 . 


ERROR COUNT 
:TSSR INCORRECT AFTER READ DATA 
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S. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
D AND THAT THE DATA 


o 

wu 
~N 
oO 
> 
« 
m 
z 

aoz @ 
> ° 
et 
g 
et 
nw 
> 
o 
: 
r 
g 


047476 104456 TRAP CSERHRD | 
047500 000631 - WORD 409 ! 
047502 052211 - WORD T32TSA | 
047504 012126 WORD PKTSSR 
6537 047506 : 180%: CKLOOP 3;LOOP IF SELECTED ' 
047506 104406 TRAP CSCLP1 
6538 047510 013701 051266 MOV T32BFR+14,R1 sGET XST3 STATUS WORD 
6539 047514 010102 MOV R 3SET UP EXPECTED 
7516 0527 000001 BIS @B1TO,R2 ;SET THE RIB BIT 
6541 047522 020102 CMP R1,R2 sARE THEY EQUAL 
7524 001406 BEQ 38R, IF EQUAL (GOOD 
6543 047526 005237 002214 INC FATFLG sERROR COUNT 
6547 047532 ERRHRD ERRNO, T32RIB,EXPREC ;RIB SHOULD BE SET 
047532 104456 TRAP CSERHRD 
047534 000632 - WORD 410 
047536 052036 -WORD T32RIB 
047540 015554 .- WORD EXPREC 
6548 047542 1908: 
6549 047542 ENOSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
047542 L10054: 
047542 104403 TRAP CsEsus 
6550 047544 023727 002214 000017 CMP FATFLG,@15. :IS ERROR COUNT AT 25 
6551 047552 103402 BLO 999% sr. IF LESS THAN 25 
6552 047554 004737 017262 JSR PC ,CKDROP sTRY TO OROP THE UNIT 
6553 047560 999%: 
6554 * 
6555 
tts i TEST 4, SUBTEST 2 
3 
6558 3 VERIFIES THAT AN ERASE COMMAND EXECUTED WHEN THE TAPE IS NOT 
6559 3 POSITIONED AT BOT OPERATES PROPERLY AND gos? hid CORRUPT 
Sart 3 PREVIOUS TAPE RECORDS. THE TEST SEQUENCE I 
F 
6562 3 1. THE TAPE IS FIRST REWOUND, SEVERAL MY RECORDS ARE 
6563 3 WRITTEN, AND THE TAPE IS REWOUND AGAIN 
éses 
6566 2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE 
6567 TAPE OFF OF T AND SKIP OVER THE FIRST SEVERAL 
ease RECORDS 
6570 3. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
pet OF THE TEST RECORDS. 
$373 4. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 
6575 
6577 TRANSFERRED CORRESP Q THAT FOR THE EXPECTED 

6578 RECORD. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 

6579 ; IN THE AREA ERASED BY THE ERASE COMMAND, AND THAT THE 

Sane : PREVIOUS RECORD WAS NOT CORRUPTED. 

6582 

6583 

6584 

6585 
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! 


oa 
4 
~ 


6631 047744 
66 7 
6633 047752 


002174 
051230 
010742 


002214 


011074 


002214 


000144 
017502 


051250 20%: 


23%: 


PC, T32RES 


PC, SOF INIT 

203 

FATFLG 

RO,R1 

ERRNO, SFIERR, SFIMSG 


UNITN, T320SW 
@TS2PACKET ,R4 
PC..WRTCHR 


23% 

FATFLG 

RO,R1 

ERRNO ,,WRTMSG, SF IMSG 
PC ,REWIND 

30% 


FATFLG 
ERRNO, T32RWN, PKTSSR 


T32BFR+6,R1 
@B1T1,R2 
R1,R2 


FATFLG 
ERRNO, TS2B0T , EXPREC 


#100. ,R3 
R3,RO 
PC .FILLMEM 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


T4.2: 
TRAP 
T one PACKET 
iSET UP + COMMAND PACK 
sSET UP 


s6R IF INIT W 


sERROR 
s CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS ag A 


. WORD 
;SET UP UNIT NUMBER IN PACKET 


C$6SUB 


CSEROF 
411 

SFIERR 
SFIMSG 


sSUBROUTINE NEEDS PACKET ADORESS 


s ISSUE WRITE CHARACTERISTICS 
BR, IF CORORe see OK 

3 SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC a 


“WORD 
"WORD 
;LOOP IF SELECTED 
TRAP 
sCALL TAPE REWIND COMMAND 
PROBLEM 
ert op REMIND PACKET ADDRESS 
RROR COUNT 
; REWIND hor ACCEPTED 


sLOOP IF SELECTED 


sPICK UP XSTO 

sSET UP_EXPECTED 

;SET BOT SIT IN EXPECTED 
sD0ES EXP = REC'D 

:BR, IF EQUAL COK) 


- ROR COUNT 

;TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 
. WORD 
TRAP 


;LOOP IF SELECTED 


sSTARTING RECORD SIZE 
3;SET UP MEMORY FILL 
sCALL MEMORY FILLER 


SE@ 0152 
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047756 013737 003116 051352 
35 047764 012737 140005 0513550 65%: 
047772 012704 
6637 047776 010300 
050000 737 017502 
6639 050004 010337 051556 
050010 010465 900000 
6641 050014 737 016330 
a5 050020 016501 000002 
6643 050024 012702 000200 
6644 050030 020102 
6645 050032 001406 
6646 050034 005237 002214 
6650 050040 
050040 104456 
050042 000637 
050044 052436 
050046 012126 
6651 050050 60%: 
050050 1 
S2 050052 005723 
6653 050054 020327 000156 
050060 001341 
6655 050062 004737 011074 
050066 103407 
6657 050070 010001 
6658 050072 005237 002214 
6662 050076 
050076 104456 
050100 00064 
050102 051 
0501 015554 
6663 050106 2308: 
0501 
6664 0501 013701 051260 
6665 050114 010102 
6666 050116 052702 000002 
7 050 020102 
050 001406 
9 050 005237 002214 
6673 050132 
0501 104456 
050134 000641 
050136 051416 
0501 015554 
6674 050142 240%: 
0501 1 
0501 012703 0v0001 
6676 050150 0047 010544 
6677 050154 012737 140411 0513550 265%: 
6678 050162 012704 051350 
6679 050166 010465 
6680 050172 004737 016350 
6681 050176 016501 
012702 000200 
3 020102 
6684 050210 001406 


FREE, T32W8 
#140005, T32PK3 
@T32PK3.R4 


R3, 
PC.FILLMEM 
R3.1325Z 

Ra:  TSDBCRS) 

PC; WAITF 

TSSRCRS), R1 

@SSR,R2 

R1,R2 

80% 

FATFLG 

ERRNO, T32WOC ,PKTSSR 


FLG 
ERRNO, TS2RWN, EXPREC 


TS2BFR+6, RL 
eeiti. .R2 
2468 
FATFLG 
ERRNO, TS2B0T ,EXPREC 


#1,R3 

PC. SPACE 
#140411, T32PKS 
@T32PK3 RE 

R4, TsDBCRS) 

PC WALT 
TSERCRS), R1 
@SSR ,R2 

R1,R2 

260% 





SEQ 0153 


sSTARTING WRITE BUFFER ADDRESS 
sWRITE ge oe F COMMANDO 
3SET UP_R4 WITH PACKET 


s ISSUE COMMAND 

iWAIT FOR SSR _TO SET 
sGET TSSR CONTENTS 
3SET UP gt lg 


+ ARE T 
36R, 
RROR COUNT 
STSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
; 415 
"WORD T32MOC 
“WORD - PKTSSR 
;LOOP IF SELECTED 
a ceca 
BUMP RECORD SIZE COUNTER 
AT 160 SIZE ¥ 
1OR, EF ORE RECORDS TO MRITE 
CALL TAPE REWIND COMMAND 
i6R, IF NO PROBL 
;SAVE TSSR 
TERROR COUNT 
REWIND NOT ACCEPTED 
C#ERHROD 
‘WORD 416 
"WORD T32RWN 
WORD EXPREC 
;LOOP IF SELECTED 
TRAP —- CSCLP1 
PICK UP_XSTO 
SET UP EXPECTED 
iSET BOT BIT IN EXPECTED 
‘DOES EXP = REC’D 
iOR, IF EQUAL (OK) 
—_ OR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP  CSERHRD 
‘WORD 417 
“WORD T32B0T 
“WORD EXPREC 
;LOOP IF SELECTED 
TRAP —- CSCLP1 
SET UP FOR SPACE COMMAND 
TISSUE SPACE COMMAND 1 FORWARD 
iERASE DATA. ACK C 
T UP R4 WITH PACKET ADDRESS 


a 
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6685 050212 005237 002214 


104406 
6691 050230 013737 003116 051352 
6692 050236 012737 140401 051350 
6693 050244 012737 000144 0513556 
6694 12704 051350 


002000 
016330 


104406 
6707 050320 017701 132572 
6708 324 012702 000144 


6711 050334 005237 002214 
340 


S2 104403 
6719 050354 023727 002214 000017 
6720 362 3402 
6721 050364 004737 017262 





2608: 


2908: 


3308: 


3¢ 


INC 
ERRHRD 


FATFLG 
ERRNO, TS2ERA,PKTSSR 


TSSR(RS).R1 
@SSR,R2 
R1,R2 

2908 


FATFLG 
ERRNO, TS2TSA,PKTSSR 


F G 
ERRNO, TS2ECF ,EXPREC 


FATFLG,@15. 
999% 
PC ,.CKDROP 


i TEST 4, SUBTEST 3 
VERIFIES THAT AN ERASE ye | ENCOUNTERING THE EOT MARKER, OR 
EXECUTED BEYOND T 


TERMINATION WITH THE EOT STATUS BIT SET. ALSO 
TAPE MOTION COMMANDS EXECUTED WHEN THE 

ABLE ERROR TE 

THE FOLLOWING TEST SEQUENCE IS EXECUTED: 


OTHER 


RESULT IN UNRECOVER 
INCOMPLETE STATUS. 


SEQ 0154 


ERROR COUNT 
:TSSR INCORRECT AFTER READ DATA 


sLOOP IF SELECTED 


TRAP — CSCLP1 
sADORESS OF BUFFER 
;READ REVERSE, ACK, sevcod COMMAND 
sSET UP THE SIZE OF RECORD 
sSET UP R4 WITH PACKET ADDRESS 
OMMAND 


s ISSUE 

iWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED TAPE STATUS ALERT 
THEY EQUAL 


3 ARE 
3;BR, 
c 
:TSSR INCORRECT AFTER READ DATA 
CSERHROD 

; 419 
: T32TSA 
WORD PKTSSR 


sLOOP IF SELECTED 


sGET DATA READ 
sSHOULD BE 100 


TRAP CsCLP1i 


3;CHECK'EM OUT 
36R, IF 
sERROR COUNT 

sERASE COMMAND DIDN'T WORK 
TRAP CSERHRD 
-WORD 420 
-WORD TS32ECF 
-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CSCLPi 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


L10055: 
TRAP CsEsus 
:IS ERROR COUNT AT 25 
38R. IF LESS THAN 25 
sTRY TO DROP THE UNIT 


CAUSES TAPE STATUS ALERT 
VERIFIES THAT THE 

TAPE IS BLANK 

RMINATION AND OPERATION 
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733 3 1. THE TAPE IS REWOUND. 
Hy 
6736 8 2. ERASE COMMANDS ARE REPEATEDLY ee, UNTIL EOT STATUS j 
6737 3 IS SEEN. AN ERROR IS REPORTED IF ANY TERMINATION OTHER 
6736 3 THAN NORMAL (WITH EOT=0) OR TAPE STATUS ALERT (WITH } 
6739 3 EOT*1) IS ENCOUNTERED. IF THE CONTROLLER OR TRANSPORT 
6740 3 DOES NOT Oe tap "s EOT THE TRANSPORT WILL FAULT 
6741 ry THIS IS REPORTED FATAL ERROR AND THE TEST Is 
pe 3 ABORTED. 
3 
6744 3 3. AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS 
6745 3 VERIFIED THAT TAPE STATUS ALERT TERMINATION RESULTS, 
pL 8 WITH EOT=1. 
3 
6748 3 4. IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS 
6749 3 CISSUED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABLE 
6750 3 ERROR TERMINATION WITH OPI*1: SPACE RECORDS REVERSE 
6751 8 4 TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS 
6752 3 OPP=0) REREAD PREVIOUS (OPP=1) REREAD NEXT (OPP=1) 
6753 3 ——. NEXT (COPP=0) READ NEXT SKIP TAPE MARKS REVERSE 
6754 3 SKIP TAPE MARKS FORWARD SPACE RECORDS FORWARD WRITE 
6755 3 DATA RETRY 
6756 3 
6757 3 
6758 3 
6759 3 
6760 s- 
6761 pine da] BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
. $ 
104402 TRAP Cs6SuB 
14 | 050372 004737 052600 JSR PC. T3S2REST 3SET COMMAND PACKET 
6763 050376 004737 052672 JSR PC, T32RT2 sSET UP OTHER COMMAND PACKET 
6764 050402 004737 052722 JSR PC, T32RTS 3SET UP hag on COMMAND PACKET 
6765 050406 012737 176750 051414 MOV #65000. -T3S20LY 3SET UP DELAY COUNTER 
ores 050414 004737 016054 108: JSR PC ,SOFINIT :00 INITIALIZE ON CONTROLLER 
6767 050420 103426 6cS 20% 36R IF INIT WAS OK 
6768 050422 DELAY 250 sDELAY ABOUT .25 SEC 
050422 012727 000250 MOV #250 .,.CPC)« 
050426 000000 -WORD O 
050430 013727 002116 MOV LSOLY.CPC)« 
050434 000000 -WORD O 
050436 005367 177772 DEC -6(PC) 
050442 001375 BNE 7-4 
050444 005367 177756 DEC -22(PC) 
050450 001367 BNE --20 
6769 050452 005337 051414 OEC T320LY sBUMP COUNTER 
6770 050456 001356 BNE 10% 36R, IF COUNTER NOT DONE 
6773 050460 37 0v2214 INC FATFLG OQUNT 
6775 050464 010001 MOV RO,R1 i CONTENTS OF TSSR REGISTER 
6776 050466 ERRDF ERRNO, SFIERR,SFINSG sFATAL ERROR TSSR WAS NOT OK 
050466 104455 AP CsSEROF 
050470 000645 -WORD 421 
050472 003646 oo 4 SFIERR 
050474 012114 SFIMSG 
6777 050476 013737 002174 051250 20%: MOV UNITN, TS20SW sSET UP UNIT CORIVE) NUMBE 
6778 050504 052737 000040 051250 BIS @#6BITS,T320SW s TURN ON HIGH SPEED TO SAVE TIME 
6779 050512 012704 051230 MOV @T32PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
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6780 050516 004737 010742 
6761 050522 103407 
eres 050530 sft - 
s7ey gs0ssg Oe 
050534 3 
050536 
6708 050540 012114 
050542 104406 
6789 050544 004737 011074 
pi sesot 000002 
S7ai g50sse d16s01 
$337 050564 i ” 
0503566 poeess 
050570 051600 
0s0S72 012126 
67986 050574 
050574 2 
6799 050576 13701 051260 
. 639602 pe do 
050610 020102 
050612 001406 
6804 050614 37 002214 
050620 1046456 
62.0624 pst ty 
050626 0. 
é€616 40411 051350 
ost Gizvet sons 
68 050644 010337 051356 
68 050650 pipe =] C60060 
68614 050654 004 016330 
tr 6.460 Saeses 000002 
S6if Ss0s70 Sasisg 


FetSsesses 2 


‘ie 


8 





PC ,WRTCHR 
23% 
FATFLG 


RO,RI 
ERRNO, WRTMSG, SFIMSG 


PC REWIND 

30% 

TSSRCRS),R1 
R4 


FATFLG 
ERRNO, TS2RWN,PKTSSR 


T32BFR+6.R1 
@68iT1,R2 

R1,R2 

403 

FATFLG 

ERRNO, TS2B0T ,EXPREC 


pi meet t T32PKS 
OT32PKS RE 
R3.T 

R4 , TSOBCRS) 


TSSRCRS).R1 
Ri .R2 


ERRNO, TS2WDC . PKTSSR 


T32BFRo6.R1 
R1,R2 


SEQ 0156 


sISSUE WRITE CHARACTERISTICS 
COMMAND ISSUED OK 


a SS a <2 a 


3BR, 
t 
sSAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC FAILED 
TRAP § CSERHRO 
. WORD 
[WORD WRTMSG 
“WORD SFIMSG 
;LOOP IF SELECTED 
TRAP  CSCLP1 
sCALL TAPE REWIND COMMAND 
36R, IF NO PROBLEM 
:GET TSSR CONTENTS 
:GET PACKET ADORESS 
sREWIND NOT ACCEPTED 
TRAP CSERHROD 
.WORD 423 
[WORD  TS2RUN 
"WORD PKTSSR 
;LOOP IF SELECTED 
TRAP —«- CSCLP1 
;PICK UP XSTO 
3SET UP EXPECTED 
3SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
:8R, IF EQUAL (OK) 
4 oT pot art 
;TAPE NOT AT BOT AFTER REWIND 
woRD §3 
‘WORD TS280T 
“WORD EXPREC 
;LOOP IF SELECTED 
TRAP —s-« C8CLP 1 
sERASE DATA.CVC*1. ACK COMMAND 
3SET UP R4 UITH PACKET ADORESS 
SET UP RECORD SIZE IN PACKET 
7 
sWAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
36R, IF OK 
:CHECK FOR TAPE STATUS ALERT 
16a, IF Tapes aTus ALERT 
:TSSR INCORRECT AFTER DATA 
CSERHRO 
4 Teewe 
WORD SSR 
;LOOP IF SELECTED 
Trap ss COCA PA 


PICK UP XxSTO 
CET uP EXPECTED 
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SEQ 0157 
TEST 4: Erese And Operation Incomplete 
| 6829 050726 052702 000001 BIS @BITO,R2 ;SET EOT ert IN EXPECTED 
| 6830 050732 020102 CMP R1,R2 ;D0ES EXP = REC'D 
| 6831 050734 001406 8EQ 2408 :BR, IF EQUAL (OK) 
| 6832 050736 005237 002214 INC FATFLG iE ERROR COUNT 
6836 050742 ERRHRD ERRNO, T32E0T,EXPREC ; TAPE NOT AT EOT AFTER ERASE COMMANDS 
| 050742 104456 TRAP  CSERHRO 
050744 000652 .WORD 426 
050746 051511 “wORD T32E0T 
050750 015554 “WORD EXPREC 
6837 050752 240%: CKLOOP ;LOOP IF SELECTED 
050752 104406 TRAP = CSCLP1 
6838 050754 012703 051360 MOV @132CHD, R3 ;STARTING RECORD SIZE 
6839 050760 013737 003116 051352 MOV FREE, T32RB ;STARTING READ BUFFER ADDRESS 
6840 050766 011337 051350 265%: MOV (R3).T32PK3 ;READ DATA,ACK COMMAND 
6841 050772 012704 051350 MOV OT32PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
6842 050776 012700 177777 MOV @177777 .RO iSET PATTERN IN CORRECT REGISTER 
6843 051002 004737 017502 JSR PC ,.FILLMEM ;FILL MEMORY WITH ALL ONES 
6844 051006 012737 000144 051356 MOV #100. , 732SZ ;SET UP RECORD SIZE IN PACKET 
6845 051014 C10465 000000 MOV R4, TSOBCRS) ;ISSUE COMMAND 
6846 051020 012737 000062 051414 MOV #50. , T32DLY ;SET UP DELAY COUNTER 
6847 051026 004737 016330 270%: JSR PC ,WAITF ;WAIT FOR SSR TO SET 
6848 051032 016501 000002 MOV TSSR(RS),R1 ;GET TSSR CONTENTS 
6849 051036 012702 100214 MOV @SSR!SC!BIT2!B1T3,R2 ;SET UP EXPECTED 
6850 051042 020102 CMP R1,R2 :ARE THEY EQUAL 
6851 051044 001425 BEQ 280$ :BR, IF OK 
6852 051046 DELAY 250 ;DELAY FOR SSR TO BE SET 
051046 012727 000250 MOV 0250, (PC)- 
051052 000000 .WORD 0 
051054 013727 002116 MOV LSDLY,(PC)- 
051060 000000 .WORD 0 
051062 005367 177772 bEC -6(PC) 
051066 001375 BNE 
051070 005367 177756 DEC "30¢PC) 
051074 001367 .-20 
6853 051076 005337 051414 DEC T320LY ;COUNT DELAY ROUTINE DOWN 
6854 051102 001351 BNE 2708 ;6R, IF DELAY HAS NOT ENDED 
6855 051104 005237 002214 INC FATFLG ;ERROR COUNT 
6859 051110 ERRHRD ERRNO, T32ECF .PKTSSR ;TSSR INCORRECT AFTER READ DATA 
051110 104456 TRAP CSERHRD 
05 000653 427 
051114 052355 "wORD T32ECF 
051116 012126 "WORD PKTSSR 
6860 051120 280%:  CKLOOP ;LOOP IF SELECTED 
051120 104406 TRAP = CSCLP1 
6861 051122 013701 051266 MOV T32BFR+14,R1 ;PICK UP XST3 
6862 051126 010102 MOV R1,R2 ;SET UP EXPECTED 
6863 051130 052702 000100 BIS @B81T6,R2 ;SET OPI BIT IN EXPECTED 
6864 051134 020102 CMP R1,R2 :I1S OPI BIT SET 
6865 051136 001406 BEQ 2908 ;8R, IF AIT IS SET 
6866 051140 005237 002214 INC FATFLG ;ERROR COUNT 
6870 051144 ERRHRD ERRNO, T320PI,EXPREC ;0PI BIT NOT SET 
051144 104456 TRAP  CSERHROD 
051146 000654 .WORD 428 
051150 3 "WORD T320PI 
051152 015554 "WORD EXPREC 
6871 051154 290%:  CKLOOP ;LOOP IF SELECTED 
051154 104406 TRAP =. CSCLP1 





ee eee eee eee eee 
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TEST 4: Erese And Operation Incomplete 


687 


051156 


005723 
021327 
001300 


051340 


003116 


177777 


002214 000017 
017262 


016536 
046720 


cj 
2 


Bcc 
JMP 
163%: EXIT 


(R3) 
(R3), 0177777 
265% 


FATFLG,@15. 
9998 
PC. CKDROP 


PC, TSTLOOP 
1638 
T32L00P 
TsT 


3° 
— STORAGE FOR THIS TEST 
.*¢.°10>€177770 


T32PACKET : 
. WORD 
“WORD 
. WORD 
. WORD 
T32DATA: 
. WORD 
. WORD 
. WORD 
. WORD 
T320SW: .WORD 


T32BFR: .BLKW 


100004 
T32DATA 
te) 

10. 
T32BFR 
f°) 

20. 

t¢) 


t*) 
2s. 


; WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.*¢,010>€177770 


T32PK2: 
. WORD 
. WORD 
. WORD 
. WORD 
T32PK3: 
. WORD 
T32QRB: 
T32WB: .WORD 
. WORD 
T32SZ: .WORD 
.EVEN 


100006 


FREE 
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;BUMP COMMAND POINTER 
sAT ENO OF TABLE YET 
;8R, KEEP TRYING C 


OMMANODS 
3 >>>>>>>>23>>> END SUBTEST >>>>>>>>>>>> 


L10056: 
TRAP 


sIS ERROR COUNT AT 25 


;BR, IF LESS THAN 25 
TRY TO OROP THE UNIT 


;00 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 

;ALL DONE THIS TEST 


TRAP 
. WORD 


PACKET FOR T 


; COMMAND 
; WRITE CHARACTERTSTICS § COMMAND . 


SEQ 0156 
CsEsus 
CsExIT 
L10053-. 
WITH , ACK 


;ADORESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF GLOCK SIZE 
s CHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
;LENGTM OF MESSAGE BUFFER 


;SELECT ORIVE O 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND. 
;ADDRESS OF SELECT BLOCK DATA 


;SIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADORESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


AND ACK 
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TEST 4: Erese And Operation Incomplete 


69 -EVEN 
eos sTAPE MOTION PACKET COMMAND VALUES 
6935 051360 T32CMD: 
051 140410 -WORD 140410 sSPACE RECORDS REVERSE 
6937 051362 141410 -WORD 141410 ;SKIP TAPE MARKS REVERSE 
6936 051364 140401 -WORD 140401 ;READ REVERSE 
6939 051366 141001 -WORD 141001 sREREAD PREVIOUS (OPP=0) 
0513 161401 -WORD 161401 sREREAD NEXT (COPP=1) 
6941 051372 161001 -WORD 161001 sREREAD PREVIOUS (OPP=1) 
051374 141401 -WORD 141401 sREREAD NEXT (COPP=0) 
6943 051376 1 . WORD 40001 sREAD NEXT 
6 051 141410 -WORD 141410 ;SKIP TAPE MARKS REVERSE 
6945 051402 141010 -WORD 141010 sSKIP RECORDS F 
6 051404 141005 -WORD 141005 sWRITE DATA RETRY 
tod 051406 177777 «WORD 177777 sEND OF DATA 
6949 ; 
6 051410 CO00000 T32CNT: -WORD O ;TAPE TIMER COUNTER STORAGE AREA 
6951 051412 000000 T32CNU: .WORD O ;TAPE TIMER COUNTER STORAGE AREA 
oong 051414 000000 T320LY: .WORD O ;DELAY COUNTER 
3¢ 
6954 sLOCAL TEXT MESSAGES FOR TEST 
ore : 
6957 051416 124 141 160 T32B0T: .ASCIZ ,yove Not At BOT After REWIND Command (BOT Not Set In XSTO)’ 
6 051511 124 141 T32EOT: .ASCIZ ‘Tape Status Alert During Erase To EOT, But EOT Not Set’ 
6959 122 145 167 T32RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
6960 7 124 123 123 T32AM3: .ASCIZ ‘TSSR Init. Failed After REREAD COMPIAND ' 
6961 051716 124 123 123 T32ERA: SCIZ ‘TSSR Not Correct After ERASE Command’ 
6 051763 124 123 102 T32BA: ASCIZ ‘TSBA Not Correct After gy id DATA Command’ 
696 36 122 105 101 T32RIB: .ASCIZ ‘READ REVERSE, After ERASE From BOT, Faiied To Set RIB In XST3’ 
6964 052134 124 123 123 T32SCF: .ASCIZ ‘TSSR Not Correct After SPACE R RECORDS C 
6965 052211 124 123 123 T32TSA: .ASCIZ ‘TSSR Not Correct After READ REVERSE Into BOT 
6 266 102 117 124 32B0E: .ASCIZ ‘BOT CXSTO) Still Set After Erase From Tape''s BOT Marker’ 
6967 052355 105 122 101 T32ECF: .ASCIZ ‘ERASE Feiled To Clear T (Erase) Tape Properly’ 
6968 436 124 123 123 T32WOC: .ASCIZ ‘TSSR Not Correct After ERASE Command’ 
6969 052505 117 1 111 T320PI: .ASCIZ ‘OPI Bit (XST3) Failed To Set’ 
6970 052540 105 162 241 TST32I0: -ASCIZ ‘Erase And Operation Incomplete’ 
6971 .EVEN 
6973 * 
6974 } ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
69 ;WRITE SUBSYSTEM MEMORY COMMAND 
6976 3 
6977 t- 
6978 
6979 052600 T32REST: 
052600 SAVREG ;SAVE THE REGISTERS 
052604 012701 051230 MOV @T32PACKET.R1 i8T ART OF THE PACKET 
052610 012721 100004 MOV #100004 ,(R1)+ ;sWRITE SUBSYSTEM MEM. WITH ACK 
69863 052614 012721 051240 MOV @T32DATA,(R1)>+ ;ADDRESS OF CHARAISTICS DATA BLOCK 
052620 CLR CR1)-> ; EXTENDED ss 
6985 052622 012721 000012 MOV #10. ,CR1)+ ;SIZE OF DATA BLOCK IN BYTES 
052626 012721 051252 MOV @T32BFR,.CR1)+ sADDRESS OF MESSAGE BUFFER 
6987 052632 005021 CLR CR1)+ 
0526 012721 000024 MOV 020. ,(R1)+ ;LENGTH OF MESSAGE BUFFER 
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TEST 4: Erese 


And Operation Incomplete 


012701 
012721 
005021 


005021 
012721 
005021 
000207 


012701 
005021 


000000 
000030 
177777 
000000 


051340 
100006 


051350 


051252 


CLR (R1)+ 
MOV #0,(R1) sSELECT ORIVE ZERO 
MOV #24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
64%: MOV 0177777, T32BFR(R2) FALL ONES TO MESSAGE BUFFER 
TST -(R2) sNEXT LOCATION 
CMP #0 ,R2 sAT END OF LOOP YET 
BNE 64% sKEEP GOING UNTIL DONE 
RTS PC sRETURN 
T32RT2: 
SAVREG sSAVE THE REGISTERS 
MOV @T32PK2,R1 sSTART OF THE PACKET 
MOV #100006, (R1)-+ s;WRITE eesreren MEM. WITH ACK, 
CLR (R1)+ sADDRESS OF DATA BLOCK 
CLR C(R1)+ iEXT ENDED ADDRESS 
MOV #6.,(R1)+ sSIZE OF DATA BLOCK IN BYTES 
CLR CR1)+ 
RTS PC RETURN 
T32RTS: 
SAVREG sSAVE REGISTERS 
MOV @T32PK3,R1 sSET UP POINTER ADDRESS 
CLR C(R1)+ sCOMMAND SPAC 
CLR C(R1)-+ sADDRESS OF DATA BLOCK 
CLR (R1)-« sEXTENDED ADDRESS 
CLR (R1) ;SIZE OF DATA TRANSFER BLOCK 
RTS PC RETURN 
ENOTST 


L10053: 
TRAP CsETST 
.SBTTL TEST 5S: DATA PARITY TEST 


* 


TEST 5 -- Date Parity Test 


iThis test verifies that the dete eo ity circuitry in both the controller and the 
stransport is operating \oontan's y forcing date records with wrong parity to be 
swritten onto tape and c he results obtained when the data is read. The 
sfollowing test sequence is oo formed: 


’ 

1. A Write Characteristics command is issued and the resulting status is 
examined to determine the states of the Extended Festures and buffering 
Enable switches on the controller module. If buffering is disabled, no 
further actions need be taken in this step and the program proceeds to 
the next st If buffering is enabled, it is disabled vie the 6Buffer 
Control field in the exterded cheracteristics date word supplied by ea 
Write Characteristics command. (The module must be in Extended mode, 
so if it is not already, a Write Subsystem Memory command is issued to 
change the logical sense of the Extended Features’ switch.) 


2. The Write Subsystem Memory command is used to set the Force Wrong 
Parity eontrel’ flip-flop. 


SEQ 0160 
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SEQ 0161 
TEST S: DATA PARITY TEST 


ross : 3. The tape is rewound. 
3 
7046 3 4. A Write Data command is issued to write e date record containing ell 
7047 3 O's It is verified that this command results in Recoverable Error 
7048 3 termination (TC=4) and that the Uncorrectable Date Error CUNC) error 
Lh od 3 bit is set. 
3 
7051 3 5. The previous step is repeated for each date value 2 through 377 
7052 3 Coctal). 
7053 : : 
Lbs o4 Fy 6. The tape is rewound. 
3 
7056 : 7. A Read Next command is issued to read a record with faulty perity. It 
7057 F is verified that this command results in Recovereble Error termination 
7058 3 (TC=4) and that both the Uncorrecteble Data (UNC) and Read Bus Parity 
7059 ; CRBP) error bits are set. It is also verified thot the date actually 
sect 3 read is correct. 
3 
7062 3 8. A Read Reverse command with OPP=1 is issued to read, in reverse, the 
7063 3 same record with faulty parity es read in the previous step. It is 
7064 3 verified that this command results in Recoverable Error termination 
7065 3 (TC=#4) and that both the Uncorrectable Data (UNC) and Read Bus Parity 
7066 3 CRBP) error bits are set. It is also verified that the date actually 
7067 : read is correct. 
7068 ; : 
Las 44 3 9. Tape is spaced forward one record. 
8 
7071 H 10. The previous three steps are executed for each test record originally 
rors : written. 
3 
7074 3 11. The controller is initialized to clear the special test conditions 
7075 3 previously set up. 
7076 3 
7077 3 
7078 3 
7079 s- 
7080 052746 BGNTST 
052746 TS:: 
7081 052746 012737 006413 002172 MOV @EPRT2, EPRTSW sSECCNDARY ERROR MESSAGE 
7086 052754 012700 055545 MOV @TST3310, RO ASCII MESSAGE TO IDENTIFY TEST 
7087 052760 004737 016570 JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 
7088 052764 012737 000005 002210 MOV #5 ,LOOPCNT sPERFORM S ITERATIONS 
bao +4 0S2772 005037 054616 CLR T33CNT ;CLEAR TAPE RECORD COUNTER 
090 3¢ 
7 
7092 052776 T33LOOP : 
7093 052776 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
052776 TS.1: 
052776 104402 TRAP Cs6SUB 
7094 053000 005037 002216 CLR INTRECV s INTERRUPT INDICATOR 
7095 053004 005037 054616 CLR T33CNT sTIMER FOR WRITE DATA SPACING 
7096 053010 005037 054620 CLR TZ3CNU ; TIMER FOR Hy: DATA RETRY SPACING 
7097 053014 004737 055562 JSR PC, T33REST sSET COMMAND PACKET 
7098 053020 004737 055654 JSR PC, T33RT2 ;SET UP OTHER COMMAND PACKET 
7099 053024 004737 055716 JSR PC, T33RT3 ;SET UP OTHER COMMAND PACKET 
7100 053030 012737 176750 054622 MOV #65000. , T33D0LY ;SET UP DELAY COUNTE 


R 
7101 053036 004737 016054 10%: JSR PC, SOFINIT 300 INITIALIZE ON CONTROLLER 
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7102 053042 
7103 053044 
053044 
053050 
053052 
053056 
053060 
053064 
053072 
7104 053074 
7105 053100 
7106 053102 
7 06 


053242 
7144 053244 


103426 
012727 
000000 


3646 
€12114 


000250 
002116 
177772 
177756 
054622 
002214 


002174 
054450 
010742 
002214 


011074 
000002 
002214 


054470 20%: 


23%: 


308: 


408: 


Bcs 
DELAY 


CKLOOP 


T330LY 

10$ 

FATFLG 

RO,R1 

ERRNO, SFIERR, SFIMSG 


UNITN, T330SW 


@TS3PACKET ,R4 
+ aida 


23% 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SFIMSG 


PC ,REWIND 
TSSRCRS),R1 


FATFLG 
ERRNO, T33RWN,PKTSSR 


i: oR1 
oBIT1,R2 
R1,R2 
404 
FATFLG 
ERRNO, TS3B0T ,EXPREC 


;BR IF INIT WAS OK 
sDELAY ABOUT .25 SEC 


sBUMP_COUNTER 
:BR, IF COUR NOT DONE 


COUNT 
s CONTENTS OF TSSR REGISTER 
;FATAL ERROR TSSR WAS a 


- WORD 

- WORD 

- WORD 
;SET UP UNIT NUMBER 


SEQ 0162 


#250,(PC)+ 
LSDLY,(PC)+ 
-6(PC) 
~22¢PC) 
20 


CsEROF 
so 


1 
SFIERR 
SFIMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 


sISSUE WRITE CHARACTERISTICS 
:BR, COMMAND ISSUED OK 


sERROR COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC — 


;LOOP IF SELECTED 
TRAP 


;CALL_TAPE REWIND COMMAND 
ert ve NO PROBLEM 


:GET PACKET ADDRESS 
3E COUNT 
REWIND NOT ACCEPTED 


sLOOP IF SELECTED 


sPICK UP XSTO 

sSET UP_ EXPECTED 

sSET BOT IT IN EXPECTED 
sD0ES EXP = REC'D 

7BR, IF EQUAL (OK) 


sERROR COUNT 
3 TAPE not AT BOT AFTER REWIND 


sLOOP IF SELECTED 


CSERHRD 
S03 
T33RWN 
PKTSSR 


CsCLP1 


CSERHRD 
504 


T3380T 
EXPREC 
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7145 
7149 


7148 
7149 
71 


053244 
053246 
053252 
053254 


053262 
053270 
053274 


94 053512 


S2 
012114 
104406 
112737 


012737 


002220 42%: 


000. 054601 
000010 054600 


010742 
002214 


60%: 


708: 
054601 
ye atset 054600 


054572 


000024 054576 


054570 110%: 


EXTFEA 
SS$ 


FATFLG 
ERRNO, T33SSR,PKTSSR 


BENBSW 

70% 

UNITN, 13350SW 
oB1IT4, T330SW 
@BITS,T330SW 
OTS3PACKET ,R4 
PC,WRTCHR 

603 

FATFLG 

RO,R1 

ERRNO ,,WRTMSG, SFIMSG 


#100, T338S1 
38S 


PC, CHKTSSR 
80% 
0,R1 


FATFLG 
ERRNO, TS3SSR,PKTSSR 


#22. .R3 

FREE, T33WB 
T33CNU 
#140005 , T33PK3 


@TS3PK3,R4 
#20. ,T33SZ 


SEQ 0163 


TRAP CsCLP1 
sCHECK FOR EXTENDED FEATURES SW SWITCH 
s8R IF SWITCH I 
sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNC. SEL. BIT CTURN ON EXTFEA SWITCH) 
;WRITE SUBSYS MEM PACKET 
OMMANO 


3 OR COUNT 
sTSSR NOT CORRECT AFTER wr, MISCELLANEOUS 


CSERHRO 
-WORD 505 
-WORD T33SSR 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 
sCHECK FOR BUFFER ENABLED 


:BR, IF BUFFERING NOT ENABLED 
;SET UP UNIT NUMBER 
;BUFFER DISABLE 
;BUFFER DISABLE SEND 01 TO BITS 4 AND 3 
;SUBROUTINE NEEDS PACKET ADDRESS 
;ISSUE WRITE CHARACTERISTICS 
:OR, IF C Iss 
OUNT 


;SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 

-WORD 506 

-WORD WRTMSG 

-WORD SFIMSG 
sLOOP IF SELECTED 

TRAP CsCLP1 


sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNC. SEL. BIT CSET WRONG PARITY) 
sWRITE SUBSYS MEM PACKET 

SUE COMMAND 


IS Cc 
sWAIT FOR SSR 
36R, IF NO 


E 
;ERROR, SAVE TSSR 
sERROR COUNT 
sTSSR not CORRECT AFTER WRT. MISCELLANEOUS 
TRAP LSERHRO 


-WORD 507 
-WORD T33SSR 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


BUFFER ADDRESS 


sNUMBER OF RECORDS TO BE WRITTEN 


sSTARTING WRITE 


1 _ COMMAND 
:SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
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| TEST S: DATA PARITY TEST 
013777 054620 127370 
054620 
000000 
016330 
000002 
100210 


002214 


011074 
000002 
002214 


0S 
7243 053722 054620 





1208: 


1308: 


140%: 


1508: 


T33CNU, OFREE 

R4, TSOBCRS) 

PC. WATE 

TSSRCRS 

essniscl6rt3, R2 
1,R2 

120% 


FATFLG 
ERRNO , TSSWPW,PKTSSR 


T33BFR+10,R1 

R1,R2 

eeiri. R2 
1,R2 

ery 


FATFLG 
ERRNO, TS3UNC ,EXPREC 


R3 

110% 

ashe . REWIND 
ae. oR1 


Fate 
ERRNO’ T33RWN. PKTSSR 


T33BFR+6,R1 
R1,R2 
#BIT1,R2 


FATFLG 
ERRNO, TS3B0T , EXPREC 


T33CNU 


sMEMORY FILLED WITH DATA IN RECORD 
sREADY + NEXT RECORD 


GET TSSR CONTENTS 

SET UP EXPEC 

; ARE E 

;6R, IF OK 

ERROR COUNT 

:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
WORD 508 
"WORD T33WPw 
WORD  PKTSSR 

;LOOP IF SELECTED 
TRAP —- CSCLPA 

PICK UP XxST1 

SET UP EXPECTED 

SET UNC BIT IN EXPECTED 

1DOES EXP = REC'D 


sERROR COUNT 
sTAPE NOT AT BOT AFTER —- 


CSERHRD 
.WORD 509 
[WORD T33UNC 
“WORD EXPREC 
;LOOP IF SELECTED 
TRAP = CSCLP1 
:DEC RECORD COUNTER 
;BR, IF MORE RECORDS TO WRITE 
;CALL TAFE REWIND COMMAND 
;8R, IF NO PROBL 
;GET TSSR CONTENTS 
iGET PACKET ADDRESS 
sERROR COUNT 
;REWIND NOT ACCEPTED 
TRAP §CSERHRD 
.WORD 510 
‘WORD T33RWN 
“WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
;PICK UP XSTO 
3SET UP EXPECTED 
;SET BOT ert IN EXPECTED 
;D0ES EXP = REC'D 
i8R, IF EQUAL (OK) 
aes OR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP § CSERHRD 
.WORD 511 
"wORD T3380T 
WORD EXPREC 
;LOOP IF SELECTED 
CscLP1 


TRAP 
sCLEAR DATA VALUE IN RECORD 
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7250 64 
7251 053770 


012703 


000024 
003116 054572 
140001 054570 
054570 
000024 054576 
000000 
016330 
000002 
100210 


002214 


054502 
000002 


002214 


054502 
000400 


002214 


127000 
054620 


002214 


1558: 


160%: 


1708: 


180%: 


162%: 


CKLOOP 





TSSRCRS) 
pssniscs6it3, R2 
R1,R2 


FATFLG 
ERRNO, TS3WOC ,PKTSSR 


T33BFR+10,R1 
R1,R2 
eeir, R2 
R1,R2 
170$ 
FATFLG 
ERRNO, TS3UND ,EXPREC 


ay Aaa R1 
R1,R2 
eeirs. Re 
R1,R2 
1808 
TFLG 
ERRNO » T33RBP ,EXPREC 


OFREE.R1 
T33CNU,R2 
R1,R2 


FATFLG 
ERRNO, TSSOTA,EXPREC 


SEQ 0165 


sRECORD SIZE 
: STARTING WRITE wy Aer ADORESS 


sREAD DATA.CVC=1..A Cc 

;SET UP R Hn BACKES ADORESS 

SET UP RECORD” SIZE IN PACKET 
OMMAND 


sLOOP IF SELECTED 


oon UP XST1 

sSET UP EXPECTED 

sSET UNC BIT IN EXPECTED 
sD0ES EXP = REC'D 

:BR, IF EQUAL (OK) 


sERROR COUNT 
sUNC BIT "NOT SET AFTER ——,"*- 


CSERHROD 
WORD 513 
WORD T33UND 
OD EXPREC 


sLOOP IF SELECTED 
sPICK UP XST1 


sSET UP EXPECTED 
;SET RBP BIT IN EXPECTED 
sDOES EXP = REC'D 


;BR, IF EQUAL COK) 
sERROR COUNT 
sREAC Bus PARITY ERROR err NOT i 


RAP c 
-WORD 514 
-WORD T33RBP 

WORD EXPREC 


sLOOP IF SELECTED 
sGET DATA READ 


TRAP CscLP1 


;GET PATTERN 
;ARE THEY EQUAL 
;8R, IF OK 
sERROR COUNT 
sDATA not CORRECT 
TRAP CSERHRD 
-WORDB 515 
-WORD TSS3OTA 
-WORD EXPREC 
;LOOP IF SELECTED -_ 
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054354 104406 
7341 054356 010302 MOV R3,R2 sSAVE R3 FOR A MOMENT 


SEQ 0166 | 
| TEST 5S: DATA PARITY TEST 
7293 054144 013737 003116 054572 MOV FREE, T33W8 sSTARTING WRITE BUFFER ADDRESS 
7294 054152 012737 140401 054570 195%: MOV #140401, T33PK3 ;READ REVERSE DATA RETRY,ACK COMMAND | 
7295 054160 012704 054570 MOV OT33PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 
7296 054164 012737 000024 054576 MOV @20. ,133SZ 3SET UP RECORD SIZE IN PACKET 
7297 054172 010465 000000 MOV R4, TSOBCRS) sISSUE COMMAND 
7298 054176 004737 016330 JSR PC. WAITF WAIT FOR SSR TO SET 
7299 054202 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
7300 054206 012702 100210 MOV @SC!SSR!IGITS,R2 sSET UP EXPECTED 
7301 054212 020102 CMP R1,R2 ;ARE THEY EQUAL 
7302 054214 001406 BEQ 190% :6R, IF OK 
7303 054216 005237 002214 INC FATFLG ERROR COUNT 
7307 054222 ERRHRD ERRNO, T33WOC,.PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
054222 104456 TRAP CSERHRD 
054224 001004 .WORD 516 
054226 055367 “WORD T33MOC 
054230 012126 “WORD PKTSSR 
7308 054232 190%:  CKLOOP ;LOOP IF SELECTED 
054232 104406 TRAP = CSCLP1 
7309 054234 C13701 054502 MOV T33BFR+10,R1 sPICK UP XST1 
7310 054240 010102 MOV R1,R2 3SET UP EXPECTED 
7311 054242 052702 000002 BIS @81T1,R2 SET UNC BIT IN EXPECTED 
7312 054246 020102 CMP R1,R2 ;D0ES EXP = REC'D 
7313 054250 001406 BEQ 2008 ‘BR. IF EQUAL COK) 
7314 054252 005237 002214 INC FATFLG ;ERROR COUNT 
7318 054256 ERRHRD ERRNO, T33UND,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
054256 104456 TRAP  § CSERHRO 
054260 001005 .WORD 517 
054262 055052 "WORD T33UND 
054264 015554 “WORD EXPREC 
7319 054266 200%:  CKLOOP ;LOOP IF SELECTED 
054266 104406 TRAP  CSCLP1 
7320 054270 013701 054502 MOV T33BFR+10,R1 ;PICK UP XSTO 
7321 054274 010102 MOV R1,R2 ‘SET UP EXPECTED 
7322 054276 052702 000400 BIS eB81T8,R2 ;SET RBP BIT IN EXPECTED 
7323 054302 020102 CMP R1,R2 {DOES EXP = REC'D 
7324 054304 001406 BEQ 2108 ;BR, IF EQUAL (OK) 
7325 054306 005237 002214 INC FATFLG sERROR COUNT 
7329 054312 ERRHRD ERRNO, T33RBP,EXPREC ;READ BUS PARITY ERROR BIT NOT SET 
054312 104456 TRAP C8 
054314 001006 .WORD 518 
054316 054624 ‘WORD T33RBP 
054320 015554 “WORD EXPREC 
7330 054322 210%:  CKLOOP ;LOOP IF SELECTED 
054 104406 TRAP —- CSCLP12 
7331 054324 017701 126566 MOV OFREE.R1 ;GET DATA READ 
7332 054330 013702 054620 MOV T33CNU,R2 ;GET PATTERN 
7333 054334 020102 CMP R1,R2 ;ARE THEY EQUAL 
7334 054336 001406 BEQ 215% :6R, IF OK 
7335 054340 005237 002214 INC FATFLG ERROR COUNT 
7339 054344 ERRHRD ERRNO, T33DTA,EXPREC ;DATA NOT CORRECT 
054344 1044 TRAP  CSERHRO 
346 001007 .WORD 519 
054350 0554 "WORD TS33DTA 
054352 015554 [WORD EXPREC 
7340 054354 215%: CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 
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SEQ 0167 


| 
7342 054360 012703 000001 MOV #1,R3 sSPACE FORWARD ONE RECORD | 
j 7343 054364 004737 010544 JSR PC. SPACE sCALL ROUTINE | 
7344 054370 010203 MOV R2,R3 sRESTORE RS ! 
7345 054372 005237 054620 INC T33CNU ;BUMP TO NEXT RECORD NUMBER | } 
| LE ps 054376 005303 DEC R3 sBUuMP C 
7347 054400 001402 BEQ 220% 38R, IF DONE 
7348 054402 000137 053732 JMP 155% 3:6R, IF NOT DONE YET 
7349 054406 2208: 
7350 054406 ENDSUS 3<<<eeceeccec< END SUBTEST >>>>>>>>>>>> 
054406 L10060: 
054406 104403 TRAP CsESuB 
7351 054410 023727 002214 000017 CMP FATFLG,@15. 3IS ERROR COUNT AT 
7352 054416 103402 BLO 999% Ry IF LESS THAN 25 
7353 054420 004737 017262 JSR PC ,.CKDROP Y TO DROP THE UNIT 
7354 054424 999%: 
7355 F 
7387 
3 
7358 C04737 016536 JSR PC, TSTLOOP 300 WE NEED TO ITERATE TEST 
7359 054430 103002 BCC 230% 36R, IF NOL REQUIRED 
7360 054432 000137 052776 JMe T33L00P sEXECUTE AGAIN 
7361 054436 230%: EXIT TsT sALL DONE THIS TEST 
054436 104432 TRAP CsExIT 
7362 001300 -WORD 110057-. 
3¢ 
ross sLOCAL STORAGE FOR THIS TEST 
t- 
7366 054450 #<,010>€177770 
7368 0544 T33PACKET: sCOMMAND PACKET FOR TEST 
0544 100004 . WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH . ACK 
Lt La iret} 054460 WORD aia sADDRESS OF CHARACTERISTICS BLOCK 
7372 054456 000012 WORD 10. sSTARTING VALUE OF BLOCK SIZE 
7373 054460 T33DATA: sCHARACTERISTICS DATA BLOCK 
7374 054460 054472 -WORD TS33BFR sADDRESS OF MESSAGE BUFFER 
7375 054462 000000 -WORD O 
7376 054464 000024 WORD 20. sLENGTH OF MESSAGE BUFFER 
7377 054466 000000 = 0 
7378 054470 000000 T330SW: .WORD te] sSELECT DRIVE O 
Lt 144 054472 T33BFR: .BLKW 25. sMESSAGE BUFFER 
380 3 
ts +4 ;sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
Fy 
7384 054560 .*¢,¢10>€177770 
7386 054560 T33PK2: 
7387 054560 100006 -WORD 100006 sWRITE SUB SYS MEM COMMAND. AND ACK 
7388 054562 054600 -WORD T338F2 sADDRESS OF SELECT BLOCK DATA 
7389 054564 000000 WORD i] 
Lt +4 054566 000006 WORD 6. 3SIZE OF DATA PACKET 
7395 054570 T33PK3: 
7396 054570 100005 - WORD 100005 sREREAD COMMAND. AND ACK 
7397 054572 T33RB: 
7398 054572 003116 T33WB: .WORD FREE sADDRESS OF WRITE BUFFER 
7399 054574 000000 WORD r¢] 
Une 054576 000000 T33S2Z: WORD O sSIZE OF BUFFER CEXTENT) 
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1408 


SEQ 0168 


7404 
7405 054600 tsser2: 
7406 054600 010 133880: .BYTE 10 1BSELO AREA 
7407? 054601 200 133851: {BYTE 200 8SEL1 AREA 

054602 000000 T33S2:| ‘WORD 0 SEL 2 AREA 
7408 054608 000000 13383: [WORD 0 ;DATA AREA 

4 

7411 ; 
7412 .EVEN 
7413 TAPE MOTION PACKET COMMAND VALUES 
7415 054606 100205 T33RN: .WORD 100205 :REREAD DATA (NEXT) 
7416 054610 100605 T33WOR: “WORD 100605 REREAD DATA RETRY 
7417 054612 102205 TSSCON: /WORD 102205 {WRITE CONTINOUS 
7418 054616 177777 “WORD 177777 END OF DATA 
7420 
7421 054616 000000 TS3CNT: .WORD © :TAPE TIMER COUNTER STORAGE AREA 
7422 054620 900000 T33CNU: [WORD 0 TAPE TIMER COUNTER STORAGE AREA 
7423 054622 000000 TS3DLY: -WORD 0 DELAY COUNTER 
7435 }LOCAL TEXT MESSAGES FOR TEST 
was? dh 
7428 122 145 141 TS3RBP: .ASCIZ ‘Reed Bus Parity Bit Not Set (XST1), Should Be’ 
7429 054702 124 123 123 T33WPU: [ASCIZ ‘TSSR Incorrect Afte Parity Urite ‘ 
7430 054762 135 116 103 TSSUNC: |ASCIZ ‘UNC Bit CXST1) Not Set After Wrong Parity WRITE Command’ 
7431 055052 125 116 103 T33UND: |ASCIZ ‘UNC Bit (XST1) Not Set After Parity READ 
7432 055141 127 122 111 TS33SSR: .ASCIZ ‘WRITE MISSCELLANEOUS CONT/READ C Not Accepted 
7433 055225 141 160 TS3BOT, “ASCIZ ‘Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)’ 


124 
7434 055320 122 145 167 TS33RWN: .ASCIZ ‘Rewind (POSITION) Commend Not Accepted’ 
7435 055367 124 123 123 TSSWOC: .ASCIZ ‘TSSR Not —ouee After READ Wrong Perity Commend’ 
7436 O05‘ $50 104 141 164 TS33O0TA: .ASCIZ ‘Date pengere & rror, Dete Read From Tepe" Not Equel To Written’ 
Lt 1 055545 104 141 164 TST33I0: - -ASCIZ ate Per ity’ 


74 
7aa0 7 
$ 
7441 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
7442 ;WRITE SUBSYSTEM MEMORY COMMAND 
7443 3 
7444 i- 
7446 055562 T33REST: 
7447 055562 SAVREG SAVE THE REGISTERS 
7448 055566 012701 054450 MOV @T33PACKET.R1 sSTAR THE PACKET 
7449 055572 012721 100004 MOV #100004, (Ri)+ RITE SUBSYSTEM MEM. WITH ACK, 
7450 055576 012721 054460 MOV @T33DATA, (R1)« sADDRESS OF CHARAISTICS DATA BLOCK 
7451 055602 005021 CLR (R1)> iEXTENDED ADORESS 
7452 055604 012721 000012 MOV #10. (R1)+ sSIZE OF DATA BLOCK IN BYTES 
7453 055610 012721 054472 MOV TSSBFR, CRI)» sADORESS OF MESSAGE BUFFER 
7455 055616 012721 000024 HOV $28. (RLD> sLENGTH OF MESSAGE BUFFER 
7456 055622 005021 CLR (Ris 
7457 055624 012711 000000 HOV #0,(R1) ;SELECT ORIVE 


ZERO 
7458 055630 012702 000030 MOV @24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
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7459 055634 
7460 


SEQ 0169 
177777 054472 64%: MOV #177777, T33BFRCR2) sALL ONES TO MESSAGE BUFFER 
TST -(R2) NEXT LOCATION 
000000 CHP @0,R2 3AT END OF LOOP YET 
BNE 643 sKEEP GOING UNT 
RTS PC sRE 
T33RT2: 
SAVREG sSAVE THE REGISTERS 
054560 MOV @T33PK2,R1 sSTART OF THE P 
100006 MOV #1 (R1)> ;WRITE SUBSYSTEM MEM. WITH ACK, 
054600 MOV @T330F2,(R1)+ ; SS OF DATA 
CLR CR1D- EX Ss 
000006 nov 66. .CRLD» sSIZE OF DATA BLOCK IN BYTES 
& 
054600 MOV 6T338F2,R1 sPOINT TO DATA SEL AREA 
CLR (Ride 
CLR (Ri) 
RTS PC sRETURN 
T33RT3: 
SAVREG sSAVE REGISTERS 
054570 MOV @T33PK3,R1 3SET UP POINTER ADORESS 
CLR CR1I)+ sCOMMAND SPACE 
CLR (R1)> sADDRESS OF DATA BLOCK 
CLR (R1)+ sEXT Ss 
CLR (R1) 3SIZE OF DATA TRANSFER BLOCK 
RTS PC 3 
ENDTST 
10057: 
TRAP = CSETST 
.SBTTL TEST 6: OPERATIONS AT EOT 
- 
iTHIS TEST VERIFIES PROPER OPERATION OF THe WRITE DATA RETRY 
sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA) 
ry 
° 
sTHE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 
3 
tI 
$ 
t- 
BGNTST 4, 
3: 
Sie Seas nov etsrsaiD, no — ASeIT 10 IDENTIFY TEST 
g 
016570 JSR PC. TS setup 300 INITIAL TEST SETUP 
000005 002210 HOV @5.L sPERFORM S ITERATIONS 
000572 CLR sCLEAR TAPE RECORD COUNTER 


3° 


iTEST 6, SUBTEST 1 


THIS TEST VERIFIES THE EOT STATUS ts HAMDLED PROPERLY BY 


THAT 
THE VARIOUS TAPE MOTION COMMANDS. THE FOLLOWING TEST SEQUENCE 
IS PERFORMED: 
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SEQ 0170 


7317 ' 1. THE TAPE IS REWOUND. 

¢ 
7519 : 2. WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE 
7520 ' STATUS ALERT TERMINATION IS SEEN WITH EOT=1. ERRORS 
7521 , OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA 
7522 : ERRORS CAUSE A FATAL ERROR REPORT. RECORDS WITH DATA 
7328 ‘ ERRORS ARE RETRIED, SO THE TAPE ENDS UP WITH GOOD DATA. 
7525 ; 3. ANOTHER WRITE DATA COMMAND IS ISSUED, AND IT IS CHECKED 
7326 ; THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 
7528 ; 4. A WRITE TAPE MARK COMMAND IS ISSUED, AND IT IS CHECKED 
7529 ; THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT#=1. 
7531 : 5. A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS 
7532 , CHECKED THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH 
7338 ; EOT*1 AND TMK=1 
7535 : 6. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
7536 : 1, IS ISSUED, AND TT IS CHECKED THAT TAPE STATUS ALERT 
7337 : TERMINATION OCCURS, WITH EOT=1 AND TMK=1. 
7539 : 7. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
7540 : 1, IS ISSUED, IT IS CHECKED HAT NORMAL TERMINATION 
7341 ; OCCURS, WITH EOT=1. 
7543 ; 8. A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
7544 : 1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
7545 : OCCURS, WITH EOT=1. 
7547 : 9. A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED 
7348 ; THAT NORMAL TERMINATION OCCURS, WITH EOT=1. 
7550 : 10. A READ FORWARD COMMAND IS ISSUED, AND IT IS CHECKED 
7353 ; THAT NORMAL TERMINATION OCCURS, WITH EOT=1. 
7553 ; 11. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
7554 : 3, I3 ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
7355 ; OCCURS, WITH EOT=0. 
7557 ; 12. A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
7558 : 3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
7359 i OCCURS, WITH EOT=1 
7561 : 13. A SKIP FILE MARKS REVERSE COMMAND IS ISSUED, WHICH 
7562 : SHOULD SKIP ALL THE WAY TO BOT, AND IT IS CHECKED THAT 
7563 ; TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=0, 
7564 ; BOT=1, AND RIB=1. 
7565 F 
7566 3 
7567 3 
7568 3 
7569 3- 
7570 
7571 055772 T34L00P: 
7572 3° 
7573 3 
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7574 
7575 
7576 
7577 
7578 
7579 


7381 
7383 
7585 
7587 


pEeey 


a2 


90 
7591 
75 





92 
7593 
7594 
7595 
055772 
7596 
7597 056000 
7598 056004 
| 
| 
| 


055772 


002116 
177772 
177756 
000200 
960574 
002214 


002174 
000040 


060440 
010742 


060574 


060460 
060460 


SEQ 0171 
“ead 6, SUBTEST 1 
i VERIFIES THAT WRITING OVER THE END-OF -TAPE (CEOT) 
sMARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE 
; TAPE TRANSPORT DOES NOT RECOGNIZE THE EOT MARKER, THE 
sTAPE WILL RUN OFF THE END OF THE REEL, CAUSING THE 
sPROGRAM SEQUENCE TO BE ABORTED WITH A "FATAL ERROR 
INDICATION. IN THIS CASE, CORRECTIVE MAINTENANCE 
sMUST BE PERFORMED USING THE TRANSPORT’ LT-IN 
sMAINTENANCE ROUTINE AVAILIABLE VIA THE FRONT PANEL. 
<4 THE CONTROLLER DOES NOT RECOGNIZE THE EOT, THE 
s TRANSPORT WILL FAULT BUT THE TAPE WILL NOT RUN OFF 
i THE ane OF THE REEL BUT THE TRANSPORT MUST BE 
sMANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A 
SFATAL DIAGNOSTIC ERROR. 
Hy 
3 
3 
3 
$s e 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
76.1: 
TRAP CsB6SUB 
JSR PC, T34REST 3SET COMMAND PACKET 
JSR PC, T34RT3 sRESTORE PACKET 
JSR PC, T34RT2 ‘= UP OTHER COMMAND PACKET 
MOV #65000. , T34DLY ;SET UP COUNTER 
108: JSR PC,SOFINIT 3:00 INITIALIZE ON CONTROLLER 
BCS 20% ;B8R IF INIT WAS OK 
DELAY 250 ;DELAY A WHILE 
MOV @250,(PC)-+ 
. WORD 
MOV LSOLY,CPC)+ 
-WORD O 
DEC -6(PC) 
BNE 74 
DEC -22(PC) 
BNE --20 
MOV TSSRCRS),R1 ;GET TSSR STATUS 
BIT @SSR,R1 sCHECK FOR SSP SET 
BNE 203 3BR, N SSR Is SET 
DEC T340LY ;BUMP COUNTER D 
BNE 10$ ;BR,. IF MORE DELAY REQUIRED 
INC FATFLG sERROR C 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDOF 
-WORD 601 
- WORD SFIERR 
- WORD SF IMSG 
208: CKLOOP ;LOOP IF SELECTED 
TRAP CsCLP1 
MOV UNITN, T340SW ;SET UP DRIVE NUMBER 
BIS BITS, 1T340SW ; TURN ON HIGH SPEED TO SAVE TIME 
MOV @TS4PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
JSR PC ,WRTICHR sISSVE WRITE CHARACTERISTICS 
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SEQ 0172 


7619 056140 103407 BCs 308 :BR, IF COMMAND ISSUED OK 
7620 056142 005237 002214 INC FATFLG ERR 
056146 010001 MOV RO,R1 + SAVE CONTENTS OF TSSR 
7625 056150 ERRHRD ERRNO, WRTMSG, SFIMSG WRITE CHARACTERISTISC FAILED 
056150 104456 CSERHRD 
056152 001132 , 
056154 "WORD WRTMSG 
| 056156 012114 “WORD  SFIMSG 
—--'7626 (056160 308: CKLOOP ;LOOP IF SELECTED 
056160 1 TRAP —« CSCLP1 
| 7627 056162 004737 011074 JSR PC ,REWIND ;REWIND CALL 
| 7628 056166 103411 Bcs 3538 ;9R, IF TSSR IS OK (GOOD) | 
7629 056170 016501 000002 MOV TSSRC(RS),R1 :GET TSSR 
7630 056174 010004 MOV ;SET UP PACKET 
7631 056176 005237 002214 INC FATFLG ;ERROR COUNT 
7635 056202 ERRHRD ERRNO, T34RWN,PKTSSR :TSSR IS INCORRECT AFTER REWIND 
056202 1044 TRAP  CSERHRD 
056204 001133 . WORD 3 
056206 (62237 “WORD 
056210 012126 “WORD PKTSSR 
7636 056212 358: CKLOOP ;LOOP IF SELECTED 
056212 1 TRAP = CSCLP1 
7637 056214 012737 140005 060560 MOV #140005, T34PK3 ‘WRITE DATA, ACK, CVC#1 
056222 012703 176750 MOV 065000. .R3 ;SET MAX NUMBER OF WRITES 
7639 056226 013737 003116 060562 MOV FREE , T34W8 SET UP WRITE BUFFER ADDRESS 
056234 012737 006654 060566 MOV 03500. ,134SZ ;SET UP BUFFER SIZE (4K BYTES) 
7641 056242 012704 MOV OT34PK3,R ;R4 = POINTER TO PACKET 
056246 010465 000000 40s: MOV R4, TSDBCRS) 31 COMMAND 
7643 056252 004737 016330 JSR PC WAITF ;WAIT FOR SSR TO SET 
056256 016501 000002 MOV TSSR(RS),R1 ;GET TSSR CONTENTS 
7645 056262 012702 000200 MOV @SSR.R ;SET UP EXPECT 
7 020102 CMP F ;ARE THEY EQUAL 
7647 056270 001010 BNE ;8R, IT MIGHT BE END OF TAPE 
7648 056272 005303 DEC R3 ;DEC RECORD COUNTER 
7649 056274 001364 BNE 40$ :BR. IF MORE TO GO 
7650 056276 005237 002214 INC FATFLG ;ERROR COUN 
7654 056302 ERROF ERRNO, T34ET,PKTSSR ;E0T NOT FOUND fost SHORTER | TAPE?) 
056302 1044 CSEROF 
056 001134 TORO 604 
056 06201 "WORD T34ET 
056310 012126 "WORD PKTSSR 
7655 056312 032701 000004 50%: BIT eBIT2,R1 ;CHECK FOR TAPE STATUS ALERT 
7656 056316 001001 BNE 60$ ;BR, IF SET 
7657 056 7 BR 40$ ;KEEP GOING 
7658 056322 013701 060470 60%: MOV T34BFR+6,R1 ;PICK UP XSTO 
7659 056 010102 MOV R1.R2 ;SET UP EXPECTED 
7660 056330 052702 000001 BIS @B1T0,R2 ;SET THE EOT BIT ON IN EXPECTED 
7661 056334 020102 CHP R1,R2 ;WAS THE BIT ON 
7662 056336 001402 BEQ 80$ ;8R, IF EOT WAS FOUND 
7663 056340 000137 056246 JMP 40$ ;KEEP LOOKING 
7664 056344 808: CKLOOP ;LOOP IF SELECTED 
056344 TRAP —s- CSCLP1 
7665 056 012737 060560 MOV @140005, T34PK3 ;WRITE DATA, ACK, CVC#1 
7666 056354 013737 003116 060562 MOV FREE, 134WB 3SET UP WRITE BUFFER ADDRESS 
7667 056 012737 54 060566 MOV 03500. 313482 ;SET UP BUFFER SIZE (4K BYTES) 
7668 056370 012704 060560 MOV oT34PK ;R4 = POINTER TO PACKET 
7669 056374 010465 MOV R4, TSsDBtRs) ;ISSUE COMMAND 


L 
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| 
| 


004737 
016501 
012702 
020102 
001406 
005237 


060 
015554 


104406 
012737 
012737 
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EOT 
016330 
000002 
100204 


002214 


140011 
060560 
000000 
016330 
000002 
100204 


002214 


060560 


141410 060560 
000001 


060562 


90%: 


100$: 


110$: 


120%: 


PC, yg SA 

TSSRCR 

osc Sok 6172, R2 
R1,R2 


FATFLG 
ERRNO, T34ET2,PKTSSR 


T34BFR+6,R1 
R1,R2 
#BITO,R2 
R1,R2 

00$ 


FATFLG 
ERRNO, T34ETN, EXPREC 


#140011, Sat 
@TS4PK3,R 
Be’ TsDBCRS) 


TSSR(RS),R1 
@SC!SSR!BIT2,R2 
R1,R2 


FATFLG 
ERRNO, T34WTM,PKTSSR 


T34BFR+6,R1 
R1,R2 
esiro, R2 
R1,R2 
1208 - 
ERRNO TS4ETO. EXPREC 


#141410, T34PK3 
01, T34WB 


SEQ 0173 


sWAIT FOR SSR _TO SET 
sGET TSSR CONTENTS 
1SE1 uP ys A 

THEY EQUAL 
:BR, IF THEY ARE OK 


s;ERROR COUNT 
sWRITE TAPE AT EOT wae SET TSA 


CSERHRD 
-WORD 605 
«WORD T34ET2 
«WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLPi 
sPICK UP XSTO 
sSET UP EXPECTED 
sSET THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 
BR, IF EOT WAS FOUND 
sERROR COUNT 
sEOT BIT (XSTO) NOT SET 
TRAP CSERHRD 
-WORD 606 
-WORD T34ETN 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLP1 
sWRITE TAPE MARK, ACK, CVC=1 COMMAND 


;R4 = POINTER TO PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR _ TO SET 


Y_EQUAL 

:BR, IF a aoe IS GOOD (0K) 
sERROR COUNT 

sEOT NOT "FOUND (USE Se eT 


CSERHRD 

-WORD 607 
-WORD TS34WTM 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CSCLP1 

sPICK UP XSTO 

sSET UP EXPECTED 

sSET THE EOT BIT ON IN EXPECTED 

sWAS THE BIT ON 

;BR, IF EOT WAS FOUND 

sERROR COUNT 

sEOT BIT (XSTO) NOT SET 
T CSERHRD 
-WORD 608 
-WORD T34ETO 
-WORD EXPREC 


sLOOP IF SELECTED 
CsCLP1 


TRAP 
sSKIP TAPE MARK a ACK ,CvC=1 COMMAND 
;SET NUMBER (1) OF TMS TO SKIP 
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7719 056616 
7720 056622 


7768 057034 





ee eee 
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EOT 
060560 
000000 
016330 
000002 
000200 


002214 


060470 
100000 


002214 


060560 
060562 


130%: 


1408: 


1508: 


1608: 


CKLOOP 


OT34PK3,R4 
R4, TSDBCRS) 


PC. WAITF 
TSSRCRS).R1 
@SSR,R2 
R1,R2 

130% 


FATFLG 
ERRNO, T34STM,PKTSSR 


es 
@BITO,R2 

R1,R2 

140% 

FATFLG 
ERRNO, T34E TN, EXPREC 


T34BFR+6,R1 
R1.R 
#BIT15,R2 
R1,R2 


FATFLG 
ERRNO, T34TMK ,EXPREC 


#140410, T34PK3 
#1, TS4u6 


OTS4PK3,R 
R4, TSDBCRS) 


PC ,WAITF 
TSSRC(RS),R1 
@SC!SSR!GIT2,R2 

1,R2 


1608 
FATFLG 
ERRNO, T34P0S,,PKTSSR 


SEQ 0174 


3R4 = POINTER TO PACKET 
OMMAND 


m 
b 4 


ARE THEY EQUAL 

i8R, IF STATUS IS GOOD (OK) 
ERROR COUNT 

;SKIP TAPE MARK REV. DION’ T SET TSA 


CSERHRD 

-WORD 609 
-WORD T34STM 
-WORD PKTSSR 

sLOOP IF SELECTEC 
TRAP CsCLPi 

sPICK UP XSTO 

sSET UP EXPECTED 

sSET THE EOT BIT ON IN EXPECTED 

sWAS THE BIT ON 

:BR, IF A FOUND 

sEOT BIT (XSTO) NOT SET 
TRAP CSERHRD 
-WORD 610 
-WORD T34ETN 
-WORD EXPREC 

sLOOP IF SELECTED 
TRAP CsCLPi 

sPICK UP XSTO 

;SET UP EXPECTED 

sSET THE TMK BIT ON IN EXPECTED 

sWAS THE BIT ON 

:BR, IF TMK WAS FOUND 

sERROR COUNT 

sEOT BIT CXSTO) NOT SET 
T tt oes 
-WORD TS4TMK 
-WORD EXPREC 


sLOOP IF SELECTED 
CsCLP1 


TRAP 
sSPACE RECORDS REVERSE, ACK, CVC=1 CMD 
sSPACE ONE RECORD REVERSE 
iR4 a’ tide TO PACKET 


sISS' OMMAND 

iWAIT FOR SSR _ TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 


sARE THEY EQUAL 
;8R, IT MIGHT BE END OF TAPE 
sERROR COUNT 
sEOT NOT FOUND (USE SHORTER TAPE?) 
TRAP ot ents 
-WORD T34P0S 
-WORD PKTSSR 


sLOOP IF SELECTED 
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EOT 


060470 
100000 


002214 


060560 
060562 


060560 
060562 


163%: 


165%: 


167%: 


170%: 


TS4BER+6, RL 
eeito. R2 
R2 
ret 
FATFLG 
ERRNO, T34ETN, EXPREC 


T34BFR+6,R1 
R1,R2 
st lied 


165% 
FATFLG 
ERRNO, T34TMK ,EXPREC 


#140410, T34PK3 
#1,T 


@T34PK3,R4 
R4,TSDBCRS) 


PC ,WAITF 
TSSRCRS),R2 
@SSR ,R2 
R1,R2 

167$ 


FATFLG 
ERRNO, T34P0S,PKTSSR 


T34BFR+6,R1 
R1,R2 
eBiTO.R2 
R1,R2 

170$ 


#140010, T34PK3 
02,734WB 
eTsaPKs” R4 

R4, TSDBCRS) 

PC. WAITF 
TSSRC(RS), RL 


TRAP CsCLPi 
sPICK UP _XSTO 
sSET UP EXPECTED 


tot THE EOT BIT ON IN EXPECTED 
WAS THE BIT ON 
:BR, IF EOT WAS FOUND 


sERROR COUNT 
sEOT BIT "(xSTO) NOT SET 
TRAP CSERHRD 


-WORD 613 

-WORD T34ETN 

-WORD EXPREC 
s;LOOP IF SELECTED 

TRAP CsCLP1 


sPICK UP _XSTO 
sSET UP EXPECTED 

;CLEAR THE TMK BIT ON IN EXPECTED 
sWAS THE BIT ON 

3B8R, IF TMK WAS FOUND 


sERROR COUNT 
sEOT BIT (XSTO) NOT SET 


TRAP CSERHRD 
-WORD 614 
-WORD T34TMK 
-WORD EXPREC 


sLOOP IF SELECTED 
CsCLP1 


RAP 
sSPACE RECORDS REVERSE, ACK, CvC=1 CMD 
sSPACE ONE RECORD REVERSE 
sR4 = POINTER TO PACKET 
Iss OMMAND 


H 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

iSET UP EXPECTED 

sARE THEY EQUAL 

;BR, IT MIGHT i Br OF TAPE 


sERROR 
sEOT NOT FOUND CUSE — eats | 


RAP cs 

-WORD 615 

-WORD T34P0S 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


sPICK UP _XSTO 
sSET UP_EXPECTED 
s;CLEAR THE EOT BIT ON IN EXPECTED 
sWAS THE BIT OFF 
:BR. IF EOT WAS FOUND 
;LOOP IF SELECTED 
CsCLP1 


TRAP 
sSPACE RECORDS FORWARD, ACK, CvC=1 
sSPACE TWO RECORDS 
3R4 = POINTER TO PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 


SEQ 0175 
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18 057 


7867 057510 


012702 
020102 
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EOT 


140401 
003116 
060560 
000000 
016330 
000002 
000200 


002214 


140401 
003116 
060560 
000000 
016330 
000002 
0v0200 


002214 


060560 
060562 


060560 
060562 


190%: 


2008: 


205%: 


2108: 


I 
ERRHRD 


CKLOOP 


@SSR ,R2 
R1,R2 


FATFLG 
ERRNO, T34P0S ,PKTSSR 


T34BFR+6,R1 
R1.R 
#BITO,R2 


FATFLG 
ERRNO, T34ETS,EXPREC 


#140401, T34PK3 
FREE, T34RB 
@T34PK3,R4 
R4, TSDBCRS) 


PC; WAITF 
TSSR(R5),R1 
@SSR,R2 


FATFLG 
ERRNO, T34RRE ,PKTSSR 


#140401, T34PK3 
FREE, T34RB 


PCW 
TSERCRS), Ri 
@SSR ,R2 


R1,R2 
2108 


FATFLG 
ERRNO, T34RRE ,PKTSSR 


SEQ 0176 


sSET UP EXPECTED 
sARE THEY EQUAL 
3BR, IT MIGHT BE END OF TAPE 


sERROR COUNT 
sEOT NOT FOUND (USE i TAPE?) 


RAP CERRO 
-WORD 616 
«WORD T34P0S 
-WORD  PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLPi 
sPICK UP _XSTO 
sSET UP EXPECTED 
sSET THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 
BR, IF EOT WAS FOUND 
-__ sERROR COUNT 
sEOT BIT (XSTO) NOT SET 
T CSERHRD 
. 617 
-WORD T34ETS 
-WORD EXPREC 
sLOOP IF SELECTED 
CsCLP1 
sREAD oversee avr CvC=1 


;SET UP WRITE BUFFER ADDRESS 
iR4 = POINTER y PACKET 


UE COMMAND 
sWAIT FOR SSR TO SET 


QUAL 
BR, ONLY SSR IS SET 
sERROR COUNT 
sEOT NOT FOUND CUSE aioe aie! ¢ 


CSERHRD 
«WORD 618 
-WORD T34RRE 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 
sREAD REVERSE, ACK, CVC#1 


;SET UP WRITE BUFFER ADDRESS 
iR4 = POINTER TO PACKET 
SUE COMMAND 


s8R, IT MIGHT BE END OF TAPE 
sERROR COUNT 
sEOT NOT "FOUND CUSE Sune. wares? 


«WORD 619 
“WORD T34RRE 
-WORD PKTSSR 


;LOOP IF SELECTED 
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057722 
7910 057724 
0577 104406 
ade! ye LAL 012737 


7917 057762 012702 
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EOT 
140001 
003116 
006654 


000000 
016330 
000002 
000200 


002214 


060470 
000001 


002214 


060560 
060562 
060566 


060560 
060562 


235%: 


2403: 


#140001 , T34PK3 
RB 


TSSR(RS),R1 
@SSR,R2 


FATFLG 
ERRNO, T34RRE ,PKTSSR 


#140001, T34PK3 
T34 


OT34PK3,R 
R4, TSDBCRS) 
*WAITF 
TSSR(RS),R1 

@SSR,R2 


FATFLG 
ERRNO, T34RRE ,PKTSSR 


T34BFR+6,R1 
1,R2 
@BITO.R2 


FATFLG 
ERRNO, T34ETZ,EXPREC 


#140410, T34PK3 
05, T34RB 


@T34PK3,R4 
R4, TSDBCRS) 
PC: WAITF 
TSSR(RS),R1 
@SSR,R2 


TRAP CSCLP1 
sREAD 0 DATA ACK cvces 

;SET UP WRITE B R ADDRESS 
:SET UP BUFFER’ STZE (4K BYTES) 
iR4 = POINTER TO PACKET 


s ISSUE COMMAND 
iWAIT FOR SSR _TO SET 


sGET TSSR CONTENTS 
sSET UP EXPECTED 
THEY E 


sERROR COUNT 
sEOT NOT FOUND CUSE ee ss 


CSERHRD 
-WORD 620 
-WORD T34RRE 
-WORD PKTSSR 


sLOOP IF SELECTED 


sREAD DATA, ACK, evens 
sSET UP WRITE BUFFER ADORESS 
sSET UP BUFFER SIZE ee BYTES) 
3R4 = POINTER TO PACKE 

OMMAND 


TRAP CsCLP1 


3GE 

iSET UP EXPECTED 

sARE THEY 

;BR, IT MIGHT BE END OF TAPE 
OUNT 


sERROR 
sEOT NOT FOUND CUSE econ: te! | 


CSE 
-WORD 621 
-WORD T34RRE 
-WORD PKTSSR 


sLOOP IF SELECTED 


sPICK UP XSTO 

+ UP _ EXPECTED 

sSET THE EOT Hy ON IN EXPECTED 
sWAS THE BIT 

3BR, IF EOT Tuas FOUND 


sERROR COUNT 
sEOT BIT CXSTC) NOT SET 
TRAP CSERHRD 
WORD 


TRAP CsCLP1 


sLOOP IF SELECTED 


TRAP CSCLP1 
sSPACE RECORDS REVERSE. ACK. CVC=1 CMD. 
;NUMBER OF RECORDS TO SPACE 
iR4 = POINTER TO PACKET 
3I OMMAND 


sSET UP EXPECTED 


SEQ 0177 
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: 
i 





7918 057766 
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EOT 


002214 


140010 
000005 


000000 
0163350 
000002 
000200 


002214 


060470 


141410 
000003 
060560 


000000 
176750 
016330 
000002 


000200 


060560 
060562 


060560 
060562 


060574 


2508: 


2608: 


2708: 


2808: 


285%: 


R1,R2 

250% 

FATFLG 

ERRNO, T34P0S ,PKTSSR 


T34BFR+6,R1 
R1,R 
#BITO,R2 
R1,R2 


FATFLG 
ERRNO, TS4ETC,EXPREC 


#140010, T34PK3 


TSSR(RS),R1 
@SSR ,R2 
R1,R2 

270% 


FATFLG 
ERRNO, T34ET,PKTSSR 


T34BFR+6,R1 
R1,R2 

@B1T0,R2 
R1,R2 

2808 

#141410, T34PK3 
03, 134R8 
OT34PK3,R4 

Ra TsDBCRS) 


PeeuA if 
TSSRCRS), Ri 
@SSR,R1 


286% 


SEQ 01786 


sARE THEY EQUAL 
s6R, IT ad wr | OF TAPE 


ERROR C 
:POSITION COMMAND DION‘ T “m= 


CSERHRO 
. Toro 623 
-WORD T34P0S 
-WORD PKTSSR 


sLOOP IF SELECTED 


sPICK UP XSTO 

sSET UP_EXPECTED 

;CLEAR THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 

:8R, IF EOT WAS FOUND 


sERROR COUNT 
sEOT BIT (XSTO) NOT as 


TRAP CSCLP1 


CSERHROD 
-WORD 624 
-WORD T34ETC 
-WORD EXPREC 


sLOOP IF SELECTED 
TRAP CsCLPi 
fn —— 4 gl ACK, CvC=1 CMD. 
ER OF RECORDS TO SPACE 
iR4 # POINTER TO PACKET 


s ISSUE COMMAND 
SWAIT FOR SSR _TO SET 


THEY EQUAL 
. IT MIGHT BE END OF TAPE 

sERROR COUNT 
sTSSR not CORRECT 
TRAP CSERHRD 
-WORD 625 
-WORD TS34ET 
-WORD PKTSSR 


TRAP CscLPi 


sLOOP IF SELECTED 


sPICK UP XSTO 
sSET UP EXPECTED 
3SET Li | cor BIT ON IN EXPECTED 


HE ON 
3BR, IF EOT WAS FOUND 
:LOOP IF SELECTED ereups 


TRAP 
sSKIP FILE MARKS REVERSE .ACK,CVC=1 LOFAND 
sNUMBER OF FILE MARKS 

iR4 = POINTER TO PACKET 

31S OMMAND 

iSET UP DELAY COUNTER 

sWAIT FOR SSR TO SET 

3GET TSSR CONTENTS 

3 CK FOR SSR SET 

3;8R, WHEN SSR IS SET 
;WAIT ABOUT .25 SECONDS 
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012727 
000000 
013727 
000000 
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EOT 
000250 
002116 
177772 
177756 
060574 


002214 
017262 
016536 


000017 


2868: 


2908: 


3008: 


3208: 
6008: 


FATFLG 
ERRNO, T34ET ,PKTSSR 


#6IT2,R1 
T34BFR+6,R1 
R1,R2 
eeiTo. oR2 


FATFLG 
ERRNO, TS4ETC,EXPREC 


T34BFR+6,R1 
R1,R2 
eeini. R2 
R1,R2 


FATFLG 
ERRNO, TS4B0T , EXPREC 


FATFLG,@15. 
9998 

PC, CKDROP 
PC, TSTLOOP 
163% 


SEQ 0179 


MOV #250, (PC )+ 
-WORD O 

MOV LSOLY,CPC)+ 
. WORD 

DEC -6(PC) 

BNE --4 

DEC -22(PC) 
BNE --20 


+ BUMP COUNTER 
IF MORE TO COUNT 

ert Up EXPECTED 

;ARE THEY EQUAL 

‘BR, IT MIGHT BE END OF TAPE 


sDEC RECORD COUNTER 
sERROR COUNT 
sEOT NOT "FOUND CUSE oan TAPE?) 
TRAP C#ERHRD 
° 626 
T34ET 
-WORD PKTSSR 
sCHECK FOR TAPE STATUS ALERT 
sPICK UP XSTO 
sSET UP_EXPECTED 
:CLEAR THE EOT BIT IN EXPECTED 
sWAS THE BIT ON 
sBR, IF EOT WAS FOUND 
sERROR COUNT 
sEOT BIT (XSTO) NOT CLEAR 
TRAP CSERHRO 
-WORD 627 
-WORD T34ETC 
-WORD EXPREC 


sLOOP IF SELECTED 


sPICK UP _XSTO 

sSET UP EXPECTED 

sSET THE BOT BIT ON IN EXPECTED 
sWAS THE BIT ON 

;6R, IF BOT WAS FOUND 


sERROR COUNT 
sEOT BIT (XSTO) NOT CLEAR 
TRAP 


TRAP CsCLP1 


CsERHRD 
-WORD 628 
-WORD T34B80T 
WORD EXPREC 
TRAP CsCLPi 


3>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>> 
* TRAP CSESUB 

3IS ERROR COUNT AT 25 

ony IF LESS THAN 25 

TO OROP THE UNIT 


sLOOP IF SELECTED 


3:00 WE NEED TO ITERATE TEST 
:BR, IF NO LOOP REQUIRED 
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SEQ 0180 





8010 060422 
8011 060426 


| 
060426 104432 TRAP —-CSEXIT 
sore CON 002662 \WORD Li0061-. 
s¢ | 
HF} {LOCAL STORAGE FOR THIS TEST 
ge 
8016 060440 . ©¢, 61026177770 
8018 060440 T34PACKET: :COMMAND PACKET FOR TEST 
8019 060440 100004 WORD 100004 WRITE CHARACTERISTICS COMMAND, WITH ACK 
060442 060450 “WORD T34DATA }ADORESS OF CHARACTERISTICS BLOCK 
8021 060444 000000 “WORD 0 
060446 000010 "WORD 8. :STARTING VALUE OF BLOCK SIZE 
8023 060450 T34DATA: {CHARACTERISTICS DATA BLOCK 
060450 060462 .WORD T34BFR ;ADORESS OF MESSAGE BUFFER 
8025 060452 000000 “WORD 0 
060454 000012 "WORD 10. ;LENGTH OF MESSAGE BUFFER 
8027 060456 000000 "WORD 0 
8028 ¢00000 T34DSW: :WORD 0 SELECT DRIVE 0 
029 T34BFR: /BLKW 25. MESSAGE BUFFER 
] 
8031 WRITE SUBSYSTEM MEMORY COMMAND PACKET 
D 
8034 060550 .2<, ¢10>6177770 
8036 060550 T34PK2: 
8037 060550 100006 WORD 100006 ;WRITE SUB SYS MEM COMMAND, AND ACK 
8038 060552 060576 ‘WORD T34BF2 }ADDRESS OF SELECT BLOCK DATA 
8039 060554 000000 "WORD 0 
8040 060556 000006 "WORD 6 ;SIZE OF DATA PACKET 
8045 060560 T34PK3: 
8046 060560 100005 WORD 100005 WRITE COMMAND, AND ACK 
8047 060562 T34R8 
8048 060562 000000 T34WB: .WORD 0 ;ADDRESS OF WRITE/READ BUFFER 
8049 060564 000000 "WORD 0 
8050 060566 000000 T34SZ: ‘WORD 0 ;SIZE OF BUFFER (EXTENT) 
8051 EVEN 
$058 060570 000000 T34RSZ: .WORD 0 LARGEST TAPE RECORD IN BYTES 
060572 000000 T34CNT: [WORD 0 TAPE RECORD COUNTER 
8055 060574 000000 T34DLY: [WORD 0 DELAY COUNTER 
3 
8058 060576 t3aeFe: 
8059 060576 010 134880: .BYTE 10 :BSELO AREA 
060577 «200 134851: .BYTE 200 iBSEL1 AREA 
8061 060600 000000 T34S2:| /WORD 0 SEL 2 AREA 
8062 060602 000000 13483: ‘WORD 0 ‘DATA AREA 
S 
Sees : 
8065 .EVEN 
3066 TAPE MOTION PACKET COMMAND VALUES 
S068 100005 T34WD: .WORD 100005 SMRITE DATA (NEXT) 
8069 100405 T34WOR: [WORD 100405 SWRITE DATA RETRY 
8070 060610 102005 T34CON: [WORD 102005 {WRITE CONTI 
8071 060612 177777 "WORD 177777 tEND 


000137 055772 


JMP T34L00P 
163%: EXIT TST 


sEXECUTE AGAIN 
sALL DONE THIS TEST 


‘ 
j 
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TEST 6: OPERATIONS AT EOT 


8 


012701 


3° 
sLOCAL TEXT MESSAGES FOR TEST 
t- 
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SEQ 01861 


123 T : .ASCIZ ‘TSSR Incorrect After Position (SPACE RECORDS) Commend’ 

122 111 T34ETO: .ASCIZ ‘WRITE TAPE MARK At EOT Feiled To Set EOT Bit (XSTO)’ 

105 101 T ASCIZ ‘READ Command At EOT Didn''t Give Norae ae - peeahtes CTSSR)‘ 
156 141 T34ETC: .ASCIZ ‘Unable To Cleer 7. Endioet ion (XSTO) Bit 

105 127 T34B0T: .ASCIZ eiled To Bit’ 

122 111 T ASCIZ ‘WRITE TAPE MARK At tot Fei leg © Set Tepe Stetus Alert’ 
i122 111 TS34ET2: .ASCIZ ‘WRITE DATA At EOT Feiled To Set Stetue Alert’ 

122 111 TS4ETN: .ASCIZ "WRITE DATA At EOT Failed To Set EOT Bit (XSTO)’ — 

120 101 TS34ETS: .ASCIZ ‘SPACE RECORDS FORWARD At EOT Feiled To Set EUT Bit (xXSTO)’ 
105 101 T34ETZ: .ASCIZ ho DATA At EOT Feiled To Set EOT Bit CXSTO)’ 

123 T34STM: .ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK REVERSE At 

117 T34TMK: .ASCIZ ‘POSITI ON Commend At EOT Onto Tape Merk Failed To Set THK (XSTO)’ 


~~ 
~ 
~- 
3 
p+ 4 
$ =| 
ee ee oe eo 
8 ee *ee *ee * ¢« *e a o *ee . see 
- 
Le] 


tes, (Use Shorter Tepe)‘ 
Tae tatus ALERT’ 
Re ject’ 


Dete Pettern Not In Rea‘ 
Commend’ 


t Set’ 
For Tape Offline’ 


Not Accepted (RAM Read)‘ 


122 ‘WRITE connand Not Accepted’ 

117 TS4ET: .ASCIZ ‘EOT Not Found In 65000 3.5K Wr 

122 111 TS4EOT: .ASCIZ ‘WRITE DATA OVER EOT GAVE NO TAPE S 

123 123 TS34TH: ASCIZ ‘TSSR Not Correct After WRITE Commend 

145 167 T34RWN: .ASCIZ *Rewind CPOSITION) Commend Not Ac 

101 115 TS4RNC: .ASCIZ ‘RAM Error rect 

123 123 T34AMS: .ASCIZ ‘TSSR Init: Feiled After WRITE 

162 151 TS4O0FL: .ASCIZ ‘Orive 7 Select Feiled To Set “OFL” In TSSR’ 
123 T34W00: .ASCIZ ‘TSSR Not Correct After OAT 

123 123 T34WOC: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command 
126 103 TS4VCK: .ASCIZ ‘CVC Set. Didn’''t t VCK In Message 

123 102 T34BA: .ASCIZ ‘TSBA Not Correct After WRITE DATA Commend’ 
122 111 T34WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command 

160 145 TST34I0: P -ASCIZ ‘Operetions At EOT’ 


3¢ 


;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


sWRITE SUBSYSTEM MEMORY C 
$ 
ge 


T34REST: 


SAVREG 
060440 V @T34PACKET,R1 
100004 MOV #100004, (Ri) 
060450 MOV @TS4DATA, (R1)+ 
CLR (R1)- 
000012 MOV #10. ,(R1)- 
060462 MOV @T34BFR,(R1)+ 
CLR (R1)> 
0v0024 MOV @20. ,(R1)- 
CLR (R1)> 
000000 MOV #0, (R1) 
000030 MOV 024. ,R2 
177777 060462 64% MOV #177777, TS4BFRC(R2) 
TST -(R2) 
000000 che R2,60 
BNE 643 
RTS PC 


sSAVE_THE ee ge BA oe 
oa 


WITH ACK 
sADORESS OF CHARATSTICS. DATA BLOCK 


TENDED ADORESS 
sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE ZERO 

sNUMBER OF LOCATIONS TO BE CLEARED 
TALL ONES TO MESSAGE BUFFER 

sBUMP DOWN TO NEXT LOCATION 

iR2 AT ZERO YET 

sKEEP GOING UNTIL DONE 

sRETURN 


TEST 1 - HARDWARE TEST 
TEST 6: OPERATIONS AT 


Shas setae 
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EOT 


TS4RT2: 


TS4RTS3: 


8° 


SEQ 0162 

SAVREG sSAVE THE REGISTERS 
MOV @T34PK2,R1 sSTART OF THE PACK 
MOV #100006. (R1)+ sWRITE SUBSYSTEM MEM. WITH ACK 
HOV @T34BF2,(R1)+ ' SS OF DATA BL 
CLR (Ri) sEXTENDED ADORESS 
MOV #6. ,(R1)+ sSIZE OF DATA BLOCK IN BYTES 
MOV OTS4BF2,R1 sPOINT TO DATA SEL AREA 
CLR CR1I)eo 
CLR (Ride 
CLR (R1) 
RTS PC sRETURN 
SAVREG sSAVE THE REGISTERS 
MOV @T34PK3,R1 sSTART OF THE PACKET 
MOV #100005. (R1)+ ;WRITE TAPE. WITH ACK 
CLR (R1) : SS OF DATA BLOCK 
CLR (R1d> s EXTENDED 
CLR (Ri) sSIZE OF DATA BLOCK 
RTS PC sRETURN 
ENDTST 

L10061: 


TRAP CSETST 


-SBTTL TEST 7: EXTENDED MODE FEATURES 


THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN 
THE | ceptatemecnanet IS IN THE EXTENDED FEATURES MODE. THESE COMMANDS 
REWIND WITH IMMEDIATE INTERRUPT 


IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE. IT 
ITS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 


THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 


@GNTST a 
33 

Mov EPRTSH PRIMARY ERROR MESSAGE 

MOV STsTseib iASCI MESSAGE TO IDENTIFY TEST 

JSR PC, Tstsetur 100 INITIAL TEST SETUP 

HOV 05. S ITERATIONS 

CLR T3SCNT CLEAR TAPE RECORD COUNTER 


iTEST 7, SUBTEST 1 


MIT THe 
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TEST 7: EXTENDED MODE FEATURES 


000000 
013727 
000000 


073064 
002216 


073156 
073220 
176750 
067436 
016054 


000250 
002116 
177772 
177756 
067442 
002214 


002174 
067270 
010742 


002214 


011074 


000002 
002214 


067442 


108: 


067310 20%: 


25%: 


SEQ 0183 


BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 


PC, T3SREST 
INTRECV 


3 
at . SOF INIT 
250 


T3SOLY 

10% 

Ro Rae 

ERRNO, SFIERR , SFIMSG 


UNITN, T350SW 
@T3SPACKET,R4 
PC .WRTCHR 

25% 

ana 


RO,R1 
ERRNO, WRTMSG , SF IMSG 


PC ,REWIND 
ae 


RO 
TSSRCRS), oR1 


g>>>>>>>>>>>> =“. -watinned >>>>>>>>>>>> 


TRAP 
COMMAND PACK’ 


3SET 

;SET UP OTHER COMMAND PACKET 
3SET UP DELAY COUNTER 

;CLEAR COUNTER 

;00 TMETIA Te ON CONTROLLER 
36R IF INIT WAS OK 

sDELAY ABOUT .25 SEC 


sBUMP_COUNTE 
;BR, IF COUNTER NOT DONE 


ERR OUNT 
s CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS a 


- WORD 
WORD 
sSET UP DRIVE 


NUMBER ; 
;SUBROUTINE NEEDS PACKET ADDRESS 


sISSVE WRITE CHARACTERISTICS 

:8R, IF COMMAND ISSUED OK 
sERROR COUNT 

s SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC > 


sLOOP IF SELECTED 


sCALL_TAPE REWIND COMMAND 
;6R, IF NO PROBLEM 
;SET UP REWIND PACKET ADDRESS 
sGET TSSR FOR PRINTOUT 

sERROR COUNT 


sSET KET 
;CLEAR INTERRUPT aoe ee FLAG 
OTHER COMMAND PACKET 


C$B8SUB 


#250, (PC )+ 
Proc, CPC)+ 
es 
-22(PC) 
--20 


+ eal 
701 


SFIERR 
SFIMSG 


CscCLP1 


TEST 1 - HARDWARE TEST 
TEST 7: EXTENDED MODE 


6234 


063542 
06 


063710 
063716 


013737 


012737 


012737 
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FEATURES 


4 
00 067416 
003116 067412 


140005 067410 
067410 
000000 


016330 
000002 
000200 


002214 


000012 067442 


SEQ 0184 


ERRHRD ERRNO, T3SRWN,PKTSSR ;REWIND NOT ACCEPTED 
TRAP CSERHRD 
.WORD 703 
.WORD T3S5RWN 

30 CKLOOP OOP IF SELECTED “eae! cae 
$: L 3L 

TRAP CSCLP1 

MOV T3SBFR+6,R1 ;PICK UP XSTO 

MOV R1,R2 3SET UP EXPECTED 

BIS BIT1,R2 SET BOT BIT IN EXPECTED 

CMP R1,R2 ;DOES EXP = REC'D 

BEQ 40% BR, EQUAL (OK) 

INC FATFLG ROR COUNT 

ERRHRD ERRNO, T3580T,.EXPREC ; TAPE nota AT BOT AFTER REWIND 
TRAP CSERHROD 
WORD 704 
"wORD T3S80T 
[WORD €EXPREC 

40$: CKLOOP ;LOOP IF SELECTED 

TRAP CsCLP1 

MOV 620. ,R3 sNUMBER OF RECORDS 

MOV 0256. ,T35SZ ;SET UP RECORD SIZE 


MOV FREE, T35W8 sADDRESS OF WRITE BUFFER 
ORSOASSSREEKEEREDSEEESESEDEEEEESEREDEEEE 
;MRITE DATA,ACK,CVC*=1 COMMAND 


3 
FSSASHHSSSHSHSHSSESESSSSKSSSSASASEEESEESESEESE 


MOV #140005 , T3SPK3 sWRITE DATA,ACK,CVC=1 COMMAND 
MOV OT35PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
50$: MOV R4,TSDOBCRS? s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS) RL sGET TSSR CONTENTS 
MOV @SSR ,R2 iSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 60$ BR, IF OK 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, TSSWDE ,PKTSSR sTSSR INCORRECT AFTER ce 
-WORDB 705 
-WORD T3SWDE 
-WORD PKTSSR 
60$: CKLOOP sLOOP IF SELECTED 
TRAP LsCLP1 
DEC R3 s;BUMP_ RECORD COUNTE 
BNE 50s ;BR, IF MORE RRECORDS TO COUNT 


{POROSEEOOEEEEEEEESEEEEEEDEDDEEEREDEEDEES 
; 

sWAIT FOR TAPE TO STOP ALL MOTION 

OTOP TTT TOIT TTT TT TTT TT TTT TTT TTT TTT TTT. 


MOV #10. , T3SOLY ;SET UP DELAY COUNTER 
70$: DELAY 250 sWAIT ABOUT .25 SEC 


EERE EE Sh Ns eee ee ONE Ne ORE RI Ee ENS OB RE PRET OES eee 
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TEST 7: EXTENDED MODE FEATURES 
012727 000250 
000000 
013727 002116 
000000 
177772 


067270 
010742 


002214 


012114 


104406 
8 012737 176750 
8310 064074 005037 067436 


012737 142012 


067410 


134 012727 


067421 
067420 


067442 


067410 


DEC T35DLY 

BNE 708 

TST EXTFEA 

BNE 110 

MOVB $ 0200,7358S1 

MOVB 10,7358S0 

MOV @T35PK2,R4 

MOV R4, TSDBCRS) 

JSR PC: CHKTSSR 

BCS 90% 

MOV RO,R1 

FATFLG 

ERRHRD ERRNO, T35SSR,PKTSSR 
908% CKLOOP 

MOV @T3SPACKET,R4 

JSR PC, WRTCHR 

BCS 100% 

INC FATFLG 

MOV RO,R1 

ERRHRD ERRNO,WRTMSS, SFIMSG 
100%:  CKLOOP 
110%: MOV #65000. , T3SDLY 

CLR T35CNT 


ER 
sBR, IF MORE T 


SEQ 0185 


 asetincsee 
LSOLY,(PC)+ 
6¢PC) 
-22(PC) 
--20 


O DELAY 
sCHECK FOR EXTENDED FEATURES SW SWITCH 


3BR IF SWITCH I 


S ON 
s;WRITE MISCELLANEOUS CONT/READ STATUS 


sFUNCTION SELECTION BIT CTURN ON EXTFEA HW SWITCH) 
PACKET 


sWRITE SUBSYS MEM 


3;6R, IF NO ERROR 
sERROR, SAVE TSSR 


s;ERROR COUNT 
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRO 


“WORD 
"WORD 
;LOOP IF SELECTED 


TRAP 
; SUBROUTINE NEEDS PACKET ADDRESS 


s ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 


sERROR COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC — 


sSCOPE LOOP 


:SET UP DELAY COUNTER 
sDELAY COUNTER 


sPOROAAESEEEEEEEEEEEEEDEEEEEEEEEDEEEEDEEE 

3 

sREWIND IMED. INTERRUPT,ACK,CVC=1,IE=0 COMMAND 
OTTTT TTT TTTTTTTTTTTTTT TTT TTT TTT TTT TT TT 


sREWIND IMED. INTERRUPT, ACK,CVC=1,IE=0 COMMAND 


#142012, T3SPK3 
MOV @T35PK3,R4 
MOV R4, TSOBCRS) 


120%: MOV TSSRCRS),R1 
BIT @SSR,R1 
BNE 130% 
INC T3SCNT 
DELAY 1 


3SET UP R4 WITH PACKET ADDRESS 
OMMAND 


s ISSUE C 

;GET TSSR CONTENTS 

sCHECK FOR SSR SET 

;BR, WHEN SSR IS SET 

sBUMP THE CYCLE COUNTER 
sDELAY TO KEEP COUNTER — 


T35SSR 
PKTSSR 


CsCLP1 


CsCLP1 


#1,(PC)+ 


TEST 1 - HARDWARE TEST 
TEST 7: EXTENDED MODE 


000000 
064142 013727 
000000 


: 
$ 
s 


6353 064250 013701 
8354 064254 Saotos 
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FEATURES 


002116 
177772 
177756 
067442 
000200 


002214 


002216 


000002 
002214 


067324 
100000 


002214 


BNE 0s 
130%: MOV @SSR ,R2 
CMP 1,R2 
BEQ 40% 
INC TF 


FATFLG 
ERRHRD ERRNO, TSSRWE ,PKTSSR 


140%: CKLOOP 
TST INTRECV 
150% 

MOV aimee 


INC ATF 
ERRHRD ERRNO, TSSINT,PKTSSR 


150%: CKLOOP 


§ SHASAASSAASASESESSEASSESESEHEASASASEESEEEEEEEEE 


;NOW CHECK FOR THE MOTION BITS SET 


3 
FRRORHHKKHARENAREKRARAREARHA AERA REMARKS RHE AH 


MOV T3SBFR+6,R1 
MOV R1.R 

BIS #BIT7,R2 
CMP R1,R2 

BEQ 160$ 


INC FATFLG 
ERRHRD ERRNO, TSSMOT,EXPREC 


160%: CKLOOP 
MOV T3SBFR+12,R1 
MOV R 


SEQ 0186 


-WORD O 
MOV LSOLY,CPC)+ 
. WORD 
DEC -6(PC) 
BNE -- 
DEC -22(PC) 
BNE --20 
epnor DEAD TIMER BUMP DOWN 
F MORE TIME TO GO 
iSET UP EXPECTED 
sARE THEY EQUAL 
;BR, IF OK 
sERROR COUNT 
:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 708 
‘ T3SRWE 
PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
;CHECK FOR INTERRUPTS 
;BR, IF NO INTERRUPTS DETECTED 
sGET TSSR STATUS FOR PRINTOUT 
s;ERROR COUNT 
s INTERRUPT RECEIVED (BAD) 
TRAP CSERHRD 
-WORD 709 
-WORD T3SINT 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XSTO 
sSET UP EXPECTED 
;SET MOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
;ERROR COUNT 
:TAPE NOT AT BOT AFTER REWIND 
TRAP LSERHRD 
. WORD 710 
-WORD T35MOT 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xST2 
;SET UP EXPECTED 
:SET OPM BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
sERROR COUNT 
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j SEQ 0187 
| TEST 7: EXTENDED MODE FEATURES 
| 8373 064326 ERRHRD ERRNO, T350PM,EXPREC ;0P™ BIT NOT SET } 
| 064326 104456 TRAP CSERHRO | 
064330 001307 . WORD 711 
064332 072572 ~ WORD T3SOPM 
064334 015554 -WORD EXPREC j 
8374 064336 1708: CKLOOP ;LOOP IF SELECTED 
064336 104406 TRAP CSCLP1 
6375 064340 012737 000027 067442 MOV @23.,T350LY ;SET UP DELAY COUNTER 
8376 064346 17S5$: DELAY 250 sSTART DELAY 
064346 012727 000250 MOV 0250, (PC )+ 
064352 000000 - WORD 
064354 013727 002116 MOV LSOLY,CPC)+ 
064360 000000 . WORD 
064362 005367 177772 DEC res 
064366 001375 BNE 
064370 005367 177756 DEC "33¢PC) 
064374 001367 BNE --20 
8377 064376 005337 067442 DEC T3SOLY ;BUMP DELAY COUNTER 
6378 064402 C01361 BNE 175$ ;68R, IF MORE DELAY 
6379 064404 ENDSUB 
064404 L10064: 
064404 104403 TRAP CsESUB 
8380 064406 023727 002214 000017 CMP FATFLG, #15. 31S ERROR COUNT AT 25 
86381 064414 103402 BLO 999% ;8R, IF LESS THAN 25 
86382 064416 004737 017262 JSR PC,CKDROP sTRY TO OROP THE UNIT 
8383 064422 999%: 
8384 s¢ 
8385 3 
osee sTEST 7: SUBTEST 2 
H 
8388 3 WITH THE INTERRUPT ENABLE at? BIT SET (1), CAUSES ALMOST 
8389 3 IMMEDIATE TERMINATION AND AN INTERRUPT STA TUS IN THE MESSAGE 
8390 3 BUFFER IS CHECKED TO VERIFY THAT THE MOT ION (MOT) AND OPERATION 
Sees ; IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 
H 
8393 3 
6394 3 
8395 F 
8396 3 
8397 3 
8398 3 
8399 3° 
064422 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
064422 T7.2: 
064422 104402 TRAP Cs$68SUB 
8401 064424 SETPRI ¢@PRIOO sENABLE INTERRUPTS. 
064424 012700 000000 MOV @PRIOO,RO 
064430 104441 TRAP CsSPRI 
8402 064432 004737 073064 JSR PC, T3SREST SET COMMAND PACKET 
8403 064436 005037 002216 CLR INTRECV CLEAR INTERRUPT RECEIVED FLAG 
8404 064442 004737 073156 JSR PC. T35RT2]) sSET UP OTHER COMMAND PACKET 
8405 064446 004737 073220 JSR PC, T35RTS ;SET UP OTHER COMMAND PACKET 
8406 064452 012737 176750 067442 MOV #65000. , T3SDLY 3SET UP DELAY COUNTER 
8407 064460 005037 067436 CLR T3SCNT ;CLEAR COUNTER 
8408 064464 004737 016054 10$: JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER 
8409 064470 103426 BCS 20% ;8R IF INIT WAS OK 


8410 064472 DELAY 250 sDELAY ABOUT .25 SEC 





_ TEST 1 - HARDWARE TEST 

“TEST 7: EXTENDED MODE 
012727 
000000 
013727 
000000 


: 


104406 
012703 
8452 064700 012737 
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FEATURES 
000250 
002116 
177772 
177756 
067442 
002214 


002174 
067270 
010742 


062214 


011074 


000002 
002214 


000024 
000400 


067310 20%: 


25%: 


30$: 


40%: 


067416 


T3SOLY 

10% 

FATFLG 

RO,R1 

ERRNO, SFIERR, SFIMSG 


UNITN, T3S0SW 
@TSSPACKET ,R4 

PC ,WRTCHR 

25% 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


Hi . REWIND 


RO.R 
TSSRCRS). oR1 
ERRNO, TSSRWN,PKTSSR 


T3SBFR+6,R1 
R1,R2 
o81T1,R2 
R1,R2 

40$ 


FATFLG 
ERRNO, T358U7 . EXPREC 


#20. ,R3 
#256. ,T35SZ 


sBUMP_COUNTER 
;8R, IF COUNTER NOT DONE 


sERROR COUNT 
s CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT 


WORD 
. WORD 
;SET UP DRIVE NUMBER 
sSUBROUTINE NEEDS 
sISSVE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
sERROR COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC a 


sLOCP IF SELECTED 
TRAP 


sCALL_TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 

;SET UP REWIND PACKET ADDRESS 
;GET TSSR CONTENTS : 


sERROR COUN 
sREWIND NOT ACCEPTED 


sLOOP IF SELECTED 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT _IN EXPECTED 
sDOES EXP = REC'D 

sBR, IF coun. (OK) 


sERROR COUNT 
sTAPE NOT AT BOT AFTER —- 


sLOOP IF SELECTED 


sNUMBER OF RECORDS 
iSET UP RECORD SIZE 


SEQ 0188 


9250, (PC)+ 
LSOLY.(PC)+ | 
“apres | 
-22(PC) 

aa, 


PACKET ADORESS 


CSCLP1 


CsCLP1 





| TEST 1 - HAROWARE TEST 
TEST 7: EXTENDED MODE 


8453 
54 


064706 


013737 


012737 


012737 
012727 
000000 
013727 
000000 


04456 
001315 
072322 
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FEATURES 


003116 


140005 
067410 


000000 
016330 
000002 
000206 


002214 


000012 
000250 
002116 
177772 
177756 


067412 


067410 


067442 


067421 
067420 


SEQ 0189 


MOV FREE, T35W8 sADDRESS OF WRITE BUFFER 
J ORRAERAAERESEREDEEEDEEDDREDEEDEEEDEEEEEE 


iWRITE DATA,ACK,CVC=1 COMMAND 


é 
FPRRERERARERREERAAKRARAARAGREREALAS RAR 


MOV #140005, T35PK3 ;WRITE DATA. ACK,CVC=1 COMMAND 
MOV OT35SPK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
50$: MOV R4, TSOBCRS) ;ISSUE COMMAND 
JSR PC. WAITF ;WAIT FOR SSR TO SET 
MOV TSSRCRS),R1 :GET TSSR CONTENTS 
MOV @SSR.R2 ;SET UP EXPECTED 
CMP R1,R2 sARE THEY 
BEQ :8R, IF 
INC FATFLG ;ERROR_ COUNT 
ERRHRD ERRNO, T3SWOE,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
TRAP C#ERHRO 
‘WORD T3SWOE 
“WORD PKTSSR 
608: CKLOOP ;LOOP IF SELECTED 


TRAP CsCLP1 


J SSAASSSSHASKASASSAASSSAASSESESEAASAESEEEEEED 


;WAIT FOR TAPE TO STOP ALL MOTION 


3 
LEAEAEKEREKEKHEEREERE ERASER ARERRARR HABE 


MOV #10. , T350LY :SET UP DELAY COUNTER 
70$: DELAY 250 ;WAIT ABOUT .25 SEC 

MOV #250.CPC)« 
. WORD 
MOV LSOLY.C(PC)+ 
. WORD 
bEC -6(PC) 
BNE ip 
DEC -22¢PC) 
BNE .-20 

DEC T3S5DLY ;BUMP COUNTER DOWN 

BNE 708 ;@R, IF MORE TO DELA 

TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 

BNE 110% i68R IF SWITCH IS ON 

MOVB 200,T358S1 ;WRITE MISCELLANEOUS CONT/READ S:ATUS 

MOVB 10,7358S0 ;FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

MOV OT35PK2,R4 ;WRITE SUBSYS MEM PACKET 

MOV R4, TSDBCRS) ;ISSUE COMMAND 

JSR PC: CHKTSSR ;WAIT FOR SSR 

BCS 903 ;BR, IF NO ERROR 

RO,R1 ;ERROR, SAVE TSSR 

INC FATFLG ;ERROR COUNT 

ERRHRD ERRNO, T35SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP  CSERHRD 


-WORD 717 
-WORD T3SSSR 
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5306 016501 000002 
8542 065312 005237 002214 


sGET TSSR STATUS FOR PRINTOUT 
*  sERROR COUNT 


SEQ 0190 
TEST 7: EXTENDED MODE FEATURES 
065 012126 -WORD PKTSSR 
6500 065112 90%: CKLOOP sLOOP IF SELECTED 
0651 104406 CsCLP1 ! 
6501 065114 012704 067270 MOV @TSSPACKET ,R4 sSUBROUTINE NEEDS PACKET S 
0651 004737 010742 JSR PC ,WRTICHR s ISSUE WRITE CHARACTERISTICS ' 
6503 065124 103407 BCS 100% 3BR, IF COMMAND ISSUED OK 
0651 005237 002214 INC FATFLG sERROR COUNT 
6508 0651352 010001 MOV RO,R1 sSAV< CONTENTS OF TSSR 
6509 065134 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
0651 04456 TRAP CSERHRD 
065136 001316 718 
065140 S052 -WORD WRTMSG 
065142 012114 -WORD SFIMSG 
6510 065144 100$: CKLOOP sSCOPE LOOP 
065144 TRAP CsCLP1 
6511 065146 012737 176750 067442 110%: MOV #65000. , TSSDLY sSET UP DELAY COUNTER 
ate | 065154 S50 067436 CLR T3SCNT sDELAY COUNTER 
seis $OOOO0000000000000000060060000000000008088 
; 
sais sREWIND IMMEDIATE ,ACK,CVC#1,IE=1 COMMAND 
; 
s3i8 §OO66006660000600000000000000060000000088 
8 0651 012737 142212 067410 MOV #142212, ten sREWIND IMMEDIATE , ACK ap oa FT a COMMAND 
6521 065166 012704 067410 MOV @T3SPK3,R ;SET UP R4& WITH PACKET ADDR 
065172 010465 000000 MOV R4, TSDBCRS) :IS C 
6523 065176 016501 000002 120$: MOV TSSR(RS) RL sGET TSSR CONTENTS 
06520 32701 000200 BIT @SSR,R1 sCHECK FOR SSR SET 
065206 1021 BNE 130% 36R, WHEN SSR IS SET 
6526 065210 005237 067436 INC T3SCNT sBUMP THE CYCLE COUNTER 
7 065214 DELAY 1 sDELAY TO KEEP COUNTER DOWN 
065214 012727 000001 MOV #1,(PC)« 
5220 -WORD 0 
06S222 0135727 002116 MOV LSOLY,.COC)> 
065226 000000 -WORD 0 
065230 005367 177772 DEC Se 
065234 001375 BNE 
065236 005367 177756 DEC "32cPC) 
06 001367 BNE --20 
8528 065244 005537 067442 DEC T3SOLY sDROP DEAD TIMER BUMP DOWN 
8 06 0013 BNE 120% 3BR, IF MORE TIME TO GO 
8530 065252 012702 000200 130%: MOV @SSR ,R2 ;SET UP EXPECTED 
8531 065256 020102 CMP R1,R2 sARE THEY EQUAL 
06 1406 BEQ 140% sBR, IF OK 
6533 065262 37 002214 INC FATFLG sERROR oo 
8537 065266 ERRHRD ERRNO, TSSRWE,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
06 04456 TRAP CsERHRD 
065270 001317 -WORD 719 
065272 072670 -WORD TS3SRME 
0652 12126 -WORD PKTSSR 
6538 aie 140%: CKLOOP ;LOOP IF SELECTED 
065276 108806 _ nai TRAP CsCLP1 
86539 065300 005737 002216 TST INTRECV CHECK FOR INTERRUPTS 
6540 065 00 BNE 150% 78R, IF INTERRUPTS DETECTED 
8541 06 MOV TSSRCRS),.R1 
INC FATFLG 
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6546 065316 
065316 
06 


8582 065466 
8583 065474 





013701 


067324 
100000 


002214 


000027 
000250 
002116 
177772 
177756 
067442 


067442 


002214 000017 


150$: CKLOOP 


ERRNO, TSSNIN, PKTSSR 


s INTERRUPT NOT RECEIVED (BAD) 


sORROOSRESREEEERESEESEEEEEEEDEDEEDDEEESES 
: 
sNOW CHECK FOR THE MOTION BITS SET 


t] 
§ SSS EASSSSSKSASEHSSHSKSESEESAESESSEEESEASEER 


MOV 
MOV 


160%: 


170%: CKLOOP 


MOV 
1758: DELAY 


T35BFR+6,R1 
@B1T7,R2 
R1,R2 


160% 
FATFLG 
ERRNO, TSSMOT , EXPREC 


TSSBER+12,R1 
@B81T15,R2 
R1,R2 


170% 
FATFLG 
ERRNO, TSSOPM, EXPREC 


#23.,TSSOLY 
250 


T3SOLY 
175% 


FATFLG,@15. 
999% 


TRAP 
. WORD 
- WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 
sPICK UP _XSTO 
sSET UP_ EXPECTED 
sSET MOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
sBR, IF _, OK 


OR COUNT 
,TAPE NOT AT BOT AFTER REWIND 


. WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 
sPICK UP xST2 
sSET UP EXPECTED 
sSET OPM BIT IN EXPECTED 
;DOES EXP = REC'D 
;BR, IF EQUAL COK) 
sERROR COUNT 
3;0PM eT’ NOT SET 
TRAP 
. WORD 
.- WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 
;SET UP DELAY COUNTER 
;START DELAY 
MOV 
. WORD 
MOV 
. WORD 
DEC 
BNE 
DEC 
BNE 
sBUMP DELAY COUNTER 
368R, IF MORE DELAY 
L10065: 
TRAP 


sIS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 


SEQ 0191 


— 


20 
T3SNIN 
PKTSSR 


CsCLP1 


#250,(PC)+ 
LSDLY,(PC)+ 
“ecec): 
~22¢PC) 
-=20 


CsESUB 
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SEQ 0192 
TEST 7: EXTENDED MODE FEATURES 
6584 065476 004737 017262 JSR PC ,CKDROP sTRY TO DROP THE UNIT } 
6585 065502 999%: | 
6586 3¢ 
6587 ; 
See8 sTEST 7, SUBTEST 3 
o 
6590 3 VERIFIES THAT THE NON-TAPE-MOTION COMMAND GET STATUS, ISSUED 
8591 3 IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH IMMEDIATE 
6592 Hy INTERRUPT COMMAND, TERMINATES PROPERLY AND PROVIDES PROPER 
6593 3 STATUS. FIRST, A NUMBER OF DATA RECORDS ARE WRITTEN FROM BOT. 
6594 3 THEN THE REWIND WITH IMMEDIATE INTERRUPT COMMAND IS ISSUED AND 
6595 3 TERMINATION VERIFIED. THEN THE GET STATUS COMMAND IS ISSUED. 
8596 3 THE GET STATUS SHOULD TERMINATE ALMOST IMMEDIATELY AND SHOW 
8597 Hy MOT=1 AND OPM=1 IN THE MESSAGE BUFFER. AFTER A DELAY LONG 
8598 3 ENOUGH TO ALLOW THE REWIND TO COMPLETE AND THE TAPE COME TO 
6599 3 REST, GET STATUS IS AGAIN ISSUED AND THE STATUS CHECKED; BOTH 
8600 3 MOT AND OPM SHOULD BE CLEAR. 
8601 3 
8602 3 
8603 $ 
8604 3 
8605 3° 
8606 065502 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
065502 17.3: 
065502 104402 TRAP CsBSus 
8607 065504 004737 073064 JSR PC, T3SREST 3SET COMMAND PACKET 
8608 065510 004737 073156 JSR PC, T35RT2]) iSET UP OTHER COMMAND PACKET 
8609 065514 004737 073220 JSR PC, T35RT3 sSET UP OTHER COMMAND PACKET 
8610 065520 004737 016054 JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER 
6611 065524 103407 BcS 20% 3;6R IF INIT WAS OK 
8612 065526 005237 002214 INC FATFLG sERROR COUNT 
6616 065532 010001 MOV RO,R1 ; CONTENTS OF TSSR REGISTER 
6617 065534 ERROF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT 
065534 104455 TRAP CSsERDF 
065536 001323 .- WORD 723 
065540 003646 .WORD SFIERR 
5542 012114 - WORD SFIMSG 
8618 065544 013737 002174 067310 20%: MOV UNITN, T3S5S0SW sSET UP UNIT NUMBER IN PACKET 
8619 065552 012704 067270 MOV @TSSPACKET ,R4 ;SUBROUTINE NEEDS PACKET 
8620 065556 004737 010742 JSR PC, ,WRTCHR sISSUE WRITE CHARACTERISTICS 
8621 065562 103407 bcs 233% 38R, IF COMMAND ISSUED OK 
S64 005237 002214 INC FATFLG sERROR 
8626 065570 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 
8627 065572 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
065572 104456 TRAP CSERHRD 
065574 001324 - WORD (24 
065576 - WORD WR 
065600 012114 . WORD SF IMSG 
8628 065602 23%: CKLOOP sLOOP IF SELECTED 
065602 104406 TRAP CSCLP1i 
8629 065604 004737 011074 JSR PC,REWIND sCALL TAPE REWIND COMMAND 
8630 065610 103411 6cs 30% ;8R, IF NO PROBLEM 
8631 065612 010004 MOV RO,R4 SET UP REWIND PACKET ADDRESS 
8632 065614 016501 000002 MOV TSSRCRS),.R1 sGET CONTENTS FOR CALL 
8633 065620 005237 002214 INC FATF sERROR COUNT 
8637 065624 ERRHRD ERRNO, TSSRWN,PKTSSR sREWIND NOT ACCEPTED 
065624 104456 TRAP CSERHRD 





8682 
8683 065772 
8684 


066000 
8685 066004 
8686 066010 





104406 
€12703 
013737 


012737 
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FEATURES 


000024 
003116 


140005 
067410 


017502 
067416 


000000 
016330 
000002 


002214 


141005 
000000 
016330 
000002 


067412 


067410 


067410 


- WORD 25 
-WORD T3SRWN 
«WORD PKTSSR 
308: CKLOOP sLOOP IF SELECTED 

TRAP CsCLPi 

MOV T3SBFR+6,R1 sPICK UP _XSTO 

MOV 1,R2 sSET UP EXPECTED 

BIS #81T1,R2 sSET BOT BIT IN EXPECTED 

CMP R1,R2 sD0ES EXP = REC'D 

BEQ sBR, IF EQUAL (OK) 

INC FATFLG oe COUNT 

ERRHRD ERRNO, TSSBOT,EXPREC sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 726 
-WORD T3SB0T 
-WORD EXPREC 

40%: CKLOOP sLOOP IF SELECTED 

TRAP CsCLPi 

MOV #20. .R3 sSTARTING RECORD SIZE 

MOV FREE, TSSWB sSTARTING WRITE BUFFER ADORESS 


POSSESSES SESERDSEESEESEESEESREDEEDESEEEE 

;WRITE DATA,CVC=1,ACK COMMAND 

; 0060000000000000000000000000000000000008 

65%: MOV #140005 , T3SPK3S sWRITE DATA,CVC=1,ACK C 
@TSSPK3 RO UP_R4 WI 


MOV SPK SET TH PACKET ss 

MOV oRO sSET PATTERN IN CORRECT REGISTER 

JSR PC .FILU sFILL MEMORY WITH RECORD SIZE 

MOV R3,T35SZ sSET Cc SIZE IN PACKET 

MOV R4, TSOBCRS) sISS' 

JSR PC ,WAITF sWAIT FOR SSR TO SET 

MOV TSSRCRS).R1 sGET TSSR CONTENTS 

MOV @SSR ,R2 sSET UP EXPECTED 

CMP R1,R2 sARE THEY EQUAL 

BEQ $ :BR, IF “ 

INC FATFLG RROR COUNT 

ERRHRD ERRNO, TSSWOC,.PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
- WORD 27 
-WORD T3SWOC 
WORD TSSR 

80%: CKLOOP sLOOP IF SELECTED 

TRAP LSCLP1 


pOhOSSesesessesasesseseesesasersecesseses 
;WRITE DATA RETRY,CVC=1,ACK COMMAND 


3 
{SSEAHKADASESKASKAKRSEAESAKEKHAAHASKEKHASEHE 


MOV #141005, T3SPK3 sWRITE DATA RETRY.CVC#1,ACK COMMAND 
MOV R4,TSDBCRS) sISSUE C 

JSR PC‘ WAITF ;WAIT FOR SSR TO SET 

MOV TSSRCRS),R1 :GET TSSR CONTENTS 


SEQ 0193 


RR RR RR RR 
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8687 066014 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 

6688 066020 020102 chp R1,R2 sARE THEY EQUAL 

8689 066022 001 BEQ sR, IF 

8690 066024 005237 002214 INC FATFLG ERROR COUNT 

8694 066030 ERRHRD ERRNO, TSSWRF ,PKTSSR sTSSR INCORRECT AFTER WRITE DATA RETRY 
066030 104456 TRAP CSERHRO 
066032 001350 -WORD 726 
066034 072145 -WORD  TSSWRF 
066036 012 WORD PKTSSR 

8695 066040 90%: “ CKLOOP sLOOP IF SELECTED 
066040 1 TRAP Csc.Pi 
066042 0057235 TST CR3)+ sBUMP RECORD SIZE COUNTER 

8697 066044 020327 000052 CMP R3, 042. iAT 42 SIZE YET 
066050 001315 BNE 65% F MORE RECORDS TO WRITE 

8699 066052 737 011074 JSR PC ,REWIND iCALL TAPE REWIND COMMAND 
066056 103411 6cs 230% 3BR, NO PROBLEM 

6701 066060 010001 MOV RO,R1 iSAVE TSSR 
066062 016501 000002 MOV TSSRCRS),.R1 sGET TSSR_CONTENTS 
066066 37 002214 INC FATF sERROR COUNT 

8707 066072 ERRHRO ERRNO, TSSRWN,EXPREC sREWINOD NOT ACCEPTED 
066072 104456 TRAP CSERHRO 
066074 001331 - WORD 29 
066076 070544 -WORD TSSRUN 
066100 015554 -WORD EXPREC 

6708 066102 230%: CKLOOP sLOOP IF SELECTED 
0661 1 TRAP CecLPi1 
0661 013701 067520 MOV T3SBFR+6,R1 oe UP XSTO 

86710 066110 010102 MOV * sSET UP_ EXPECTED 

8711 066112 052702 000002 BIS @6IT1,R2 1SE7 BOT BIT IN EXPECTED 

6712 066116 020102 chp R1,R2 S EXP = REC'D 
066 001406 BEQ 240% 1BR, IF com. (OK) 

6714 066122 005237 002214 INC FATFLG RROR COUNT 

6718 066126 ERRHRD ERRNO, TSSBOT,EXPREC 3 TAPE wot® AT BOT AFTER REWIND 
066 104456 TRAP CSERHRD 
066130 001332 -WORD 730 
066132 070240 -WORD T3S80T 
066134 015554 WORD EXPREC 

6719 066136 240%: CKLOOP sLOOP IF SELECTED 
066136 104406 CsCLP1 

720 0661 012703 000024 MOV #20. ,R3 sSTARTING RECORD SIZE 
s7es 066144 013737 003116 067412 MOV FREE, TSSRB sSTARTING READ BUFFER ADDRESS 
e72? §9000600600000000000000000000000000000088 
: 
sree sREAD DATA,ACK COMMAND 
’ 

ore? pOSSSSSSSSSEESSSSESESESSSESEEESESEEEEEEES 

8729 066152 012737 100001 067410 265%: MOV #100001 , TSSPKS sREAD DATA,ACK COMMAND 

86730 066160 012704 067410 MOV @TSSPK3 .R4 sSET UP_R4 WITH PACKET 

8731 066164 012700 177777 MoV @177777,RO0 1SET PATTERN IN CORRECT REGISTER 

8732 066170 004737 017502 JSR PC, FILLMEM sFILL MEMORY WITH REC SIZE 

87335 066174 010337 067416 Mov R3,T3SSZ ise UP RECORD SIZE IN 

67 010465 000000 MOV R4, TSOBCRS) COMMAND 

873 004737 016330 JSR PC ,WAITF iMAIT FOR SSR _TO SET 

8736 066210 016501 000002 MOV TSSRCRS).R1 sGET TSSR CONTENTS 

6737 066214 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 


——— 
i 
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8738 066220 020102 chp R1,R2 sARE THEY EQUAL 
8739 001406 6EQ 2068 :8R, IF OK 
8740 066224 008287 002214 INC ATFLG ERROR COUNT 
0744 066250 ERRHRD ERRNO, TSSROF , PKTSSR :TSSR INCORRECT AFTER READ DATA 
00456 TRAP CSERHRO 
0662 133 WORD 731 
7532 [WORD TS3SROF 
066236 012126 WORD PKTSSR 
8745 066240 280%:  CKLOOP ;LOOP IF SELECTED 
TRAP =: CSCLP1 
8746 013702 003116 MOV FREE .R2 GET 
8747 010 MOV R3.R4 sGET RECORD 
Aras 704 000024 SUB 620 sPOINT BACK 1S ORD 
8749 265¢: ADD R2,R4 INT TO 1ST LOC IN 
Hes 001410 Seas S03" OR TATE BATA’ OK (E000) 
e732 066262 01140 oy sé aed. PTCA UP BAD. DATA 
@ 01 MOV 3.R sSET UP EXPECTED 
6754 C05237 002214 INC FATFLG sERROR COUNT 
6758 7, ERRHRD ERRNO, TSSOTA,EXPREC ;DATA IN BUFFER NOT CORRECT 
72 104456 TRAP C#ERHRO 
066274 001334 . WORD 32, 
066276 072225 [WORD TS3SOTA 
015554 “WORD EXPREC 
8759 066302 290%:  CKLOOP sLOOP IF SELECTED 
066302 104406 TRAP  CSCLP1 
8760 066304 005724 TST (R4)> ;BUMP TO NEXT ADDRESS - 
8761 066306 160204 SUB R2.R4 sBACK TO RECORD SIZE 
8762 066310 3 R4.R3 sAT END OF RE YE 
066312 001 BNE 2058 :BR, IF MORE DATA TO CHECK 
8764 066314 723 TST (R3)+ UMP RECORD SIZE 
8 + rites 001313 _—— bese” IF NO T DONE YET (MORE READS) 
8767 066324 ‘ 300%:  CKLOOP tet ag IF MOELeCTED net idieamae 
8768 oeease es 330%: 
8769 066326 ENDSUB 3>>>>>>>3>>>2>> END SUBTEST >>>>>>>>>>>> 
066326 L10066: 
066526 100408 TRAP CSESUB 
8770 066330 023727 002214 000017 cep FATFLG, 015. sIS ERROR COUNT A AT 25 
8771 066336 103402 BLO 9998 1BR IF LESS THAN 2s, 
8772 066340 boa7s? 017262 15h ©¢, CKDROP sTRY TO OROP THE UNI 
87 066344 9998: 
arts 3° 
775 ¢ 
re sTEST 7, SUBTEST 4 
Hy 
6778 , VERIF IE TAPE -MOTION (READ, WRITE. POS _— 
6779 : Scueb frveDrAtate TER’ TERTTINA RRUNAT ION OFA Rew REMIND METH arte 
789 t TeeDeA Wet COMMAND “QUEVED" 
HE ’ Then EXEEUTES PROP PROPERLY. 
8 
i 
7e4 ry 
6786S %- 
B7ES 086344 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
066544 17.4: 


‘TEST 1 - HARDWARE TEST 
TEST 7: EXTENDED MODE 


104402 
004737 
004737 
004737 

012737 
004737 
103426 
012727 
000000 
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FEATURES 


002116 
177772 
177756 
067442 
002214 


0 
010742 
002214 


011074 
000002 
002214 


067442 


108: 


067310 20%: 


23%: 


30%: 


INC 
ERRHRD 


PC, T3SREST 
PE; T33RT3 
#65000. ,T3 
PC, SOFINIT 
20% 
250 


T3SOLY 

10$ 

FATFLG 

RO,R1 

ERRNO, SFIERR,SFIMSG 


UNITN, T3S50SW 
@TSSPACKET ,R4 
TCHR 


23% 

FATFLG 

RO,R1 

ERRNO, WRTMSG, SFIMSG 


PC ,REWIND 
TSSRCRS),R1 


FATFLG 
ERRNO, T3SRWN,PKTSSR 


T35BFR+6,R1 

R1,R2 

eeiri. R2 
R1,R2 


FATFLG 
ERRNO, TSSB0T ,EXPREC 


TRAP 
sSET COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
iSET uP O Ly COMMAND PACKET 


Y COUNTER 
:00 INITIALIZE ON CONTROLLER 
;6R IF INIT WAS OK 
s;DELAY ABOUT .25 SEC 


sBUMP COUNTER 
BR, IF CORR” NOT DONE 
RR OUNT 


s CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS “Ss 


- WORD 
- WORD 
sSET UP UNIT (ORIVE) 
; SUBROUTINE NEEDS PACKET 
s ISSUE WRITE CHARACTERISTICS 
:BR, COMMAND ISSUED OK 


ERROR 
; SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC re 


;sLOOP IF SELECTED _— 
sCALL_ TAPE REWIND COMMAND 
:BR, IF NO PROBLEM 

;GET TSSR CONTENTS 

iGET PACKET ADORESS 


sERROR COUNT 
sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 
sPICK UP XSTO 
;SET UP EXPECTED 
:SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
BR, IF EQUAL (OK) 
sERROR COUNT 
; TAPE NOT AT BOT AFTER REWIND 


SEQ 0196 


C$B8SUB 


#250 ,(PC)+ 
LSOLY,(PC)+ 
~6CPC) 
“23¢re) 

-20 


CSERHRD 
734 


WRTMSG 
SFIMSG 


CsCLP1 


CsCLP1 
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104456 


104406 
6834 066600 0127035 
6835 066604 013737 


012737 


8867 066700 012737 
8868 010465 


SREEEERERE | SELGEGEEEREREREESEEE 
ua 
eon 
22 
on 
83 


000024 
003116 


111005 
000000 
016330 
000002 
000200 


002214 


067412 


067410 


067410 





TRAP CSERHRD 
WORD 736 


[WORD T3S580T 
"WORD EXPREC 


40$: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 
MOV #20. ,.R3 sSTARTING RECORD SIZE 
MOV FREE, T35W8 sSTARTING WRITE BUFFER ADDRESS 


jORSSROSSEEESEEEEEEEEEEREOEEEEEEEEDEEEESS 
;WRITE DATA,CVC=1,ACK COMMAND 


: 
J SSHSHASSHAHASSSSSSSSESESSHEESHEEEEHEEEEE 


65%: MOV #140005, T3SPK3 sWRITE DATA,CVC*1,ACK COMMAND 
MOV A nea R4 ;SET UP_R4 WITH PACKET ADDRESS 
MOV R3.R ;SET PATTERN IN CORRECT REGISTER 
JSR PC. FILLMEM sFILL MEMORY WITH RECORD SIZE 
MOV R3,T35SZ s;SET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) s ISSUE COMMAND 
JSR PC .WAITF sWAIT FOR SSR TO SET 
MOV TSSR(RS) RL ;GET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 80$ ;6R, IF OK 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, T3SWOC,PKTSSR sTSSR INCORRECT AFTER ce 
-WORD 737 
-WORD T3SWOC 
WORD PKTSSR 
80$: CKLOOP ;LOOP IF SELECTED 


TRAP CsCLP1 


fF PRROEEEEEEAEEEEESESEEOREEDESEDEEEEDEEEES 
;WRITE DATA RETRY,ACK,SWB=1 COMMAND 


a 
{ SSSSSSSAESSSSSSEAESSEESSESESEEEEAEEESEEEE 


MOV #111005, T3SPK3 sWRITE DATA RETRY,ACK,SWB=1 COMMAND 
OMMAND 


MOV R4, TSOBCRS) s ISSUE C 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 90% BR, IF OK 
INC FATFLG 3;ERROR COUNT 
ERRHRD ERRNO, TSSWRF ,EXPREC sTSSR INCORRECT AFTER WRITE DATA RETRY 
TRAP CSERHRO 
-WORD 7368 
-WORD  T3SWRF 
-WORD EXPREC 
90$: CKLOOP ;LOOP IF SELECTED 
AP CsCLPi 
TST CR3)+ sBUMP RECORD SIZE COUNTER 


SEQ 0197 


ee 


L 
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osvise 


104406 
012703 
013737 


912737 
01 
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FEATURES 
000052 
011074 
000002 
002214 


000024 
003116 


100001 
067410 
067416 
000000 
016330 
000002 
000200 


002214 


003116 
000024 


SEQ 0198 


CMP R3, 942. sat 42 SIZE YET 
BNE 65% MORE RECORDS TO WRITE 
JSR PC, REWIND ;CALL TAPE REWIND COMMAND 
Bcs 2 BR cM 
MOV TSSRCRS), R1 GET ssh CONTENTS | 
MOV RO,R ET Pp ACKET ADORESS 
INC FAtFL sERROR COUNT 
ERRHRD ERRNO’ T3SRWN,PKTSSR ;REWIND NOT ACCEPTED 
TRAP CSERHRD 
.WORD 739 
"WORD T3SRWN 
.WORD PKTSSR 
230%:  CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 
MOV T3S5BFR+6,R1 ;PICK UP XSTO 
MOV R1,R2 ;SET UP EXPECTED 
BIS @B1T1,R2 SET BOT BIT IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 2408 8R, IF EQUAL COK) 
INC FATFLG ;ERROR COUNT 
ERRHRD ERRNO, 135807, EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
.WORD 740 
“WORD T3SB0T 
"WORD €EXPREC 
240%: CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 
MOV €20. .R3 :STARTING RECORD SIZE 
067412 MOV FREE, T35RB ;STARTING READ BUFFER ADDRESS 
PREAH AKAREAHEEHEHREAHARREKHEARHEAE EE SAKA RE HEH 
3 
;READ DATA, ACK COMMAND 
v 
§ BSSSSESSEKEKESSESEESEEEEEEEEEEEEEEESEEEEED 
067410 265%: MOV #100001, TSSPKS ;READ DATA, ACK COMMAND 
MOV OT35PK3.R ;SET UP R4 WITH PACKET ADDRESS 
MOV R3, T3582 ;SET UP RECORD SIZE IN PACKET 
MOV R4, TSDBCRS) ;ISSUE COMMAND 
JSR PC. WAITF ;WAIT FOR SSR TO SET 
MOV TSSR(RS).R1 ;GET TSSR CONTENTS 
MOV @SSR,R2 SET U? EXPECTED 
CMP x sARE THEY E 
BEQ :BR, IF OK 
INC FATFLG ;ERROR COUNT 
ERRHRD ERRNO, T3SROF ,PKTSSR :TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
.WORD 741 
"wORD = T3 
WORD PKTSSR 
280%: CKLOOP ;LOOP IF SELECTED 
TRAP = C$CLP1 
MOV FREE ,R2 ;GET BUFFER ADDRESS 
MOV R3.R4 ;GET RECORD SIZE 
SUB 620. .R4 ;POINT BACK TO 1ST RECORD 
285%: ADD R2,R4 ;POINT TO 1ST LOC IN BUFFER 
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6932 067154 000303 
| 6933 067156 0214035 


002214 


000050 


002214 
017262 


000017 


SWAB RB 

CMP (R4),R3 

BEQ 290% 

MOV (R4),R1 

MOV R3,R2 

INC FATFLG 

ERRHRD ERRNO, T3SOTA,EXPREC 
290%:  CKLOOP 

TST (R4)+ 

SUB R2,R4 

SWAB sé 

CMP R4,R3 

NE 285% 

TST (R3)+ 

R3, 040. 

BNE 265% 
300$:  CKLOOP 

ENDSUB 

CMP FATFLG, #15. 

BLO 999 


$ 
JSR PC,CKDROP 
999%: 


JSR PC, TSTLOOP 
163% 


T3SLOOP 
163%: EXIT TST 


3¢ 
;LOCAL. STORAGE FOR THIS TEST 
’ =<, 1026177770 


T3SPACKET : 
. WOR’ 100004 
“WORD T3SDATA 
-WORD O 
-WORD 10. 
T3SOATA: 
-WORD T3SBFR 
-WORD O 
-WORD 20. 
«WORD O 
T3S0SW: .WORD O 
T3SBFR: .BLKW 25. 


;WRITE SUBSYSTEM MEMORY COMMAND PACKET 


SEQ 0199 


sSWAP BYTES SWB1 ETC. 

sDATA_WRITTEN = READ 

sR IF DATA OK (GOOD) 
;PICK UP BAD DATA 

iSET UP an She 


ERROR COUNT 
sDATA IN BUFFER NOT CORRECT 


TRAP CSERHRD 
. Tioro 742 
-WORD T3SOTA 
. WORD XPREC 


sLOOP IF SELECTED 
sBUMP TO NEXT ADDRESS 


YET 
;8R, IF NOT DONE YET (MORE READS) 
;LOOP IF SELECTED 
TRAP CsCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>> >>> 
L10067: 


TRAP CSESUB 
:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


D0 WE yy TO ITERATE TEST 
BR, IF NO LOOP REQUIRED 
;EXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CsExIT 
-WORD 1L10063-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND. WITH , ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLE@NGTH OF MESSAGE BUFFER 


sSELECT DRIVE O 
sMESSAGE BUFFER 


ee 
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| SEQ 0200 
TEST 7: EXTENDED MODE FEATURES 
J 
| 984 3 
| 8986 067400 -*¢,¢10>€177770 } 
| 988 067400 T35PKe2: ‘ } 
8989 067400 100006 -WORD 100006 ;WRITE SUB SYS MEM COMMAND, AND ACK “? 
990 067402 067420 -WORD T358F2 sADDRESS OF SELECT BLOCK DATA 
8991 067404 000000 -WORDB O 
yas | 067406 000006 -WORD 6. sSIZE OF DATA PACKET 
8997 067410 T3S5PK3: 
8998 067410 100005 -WORD 100005 sREREAD COMMAND, AND ACK 
8999 067412 T35SRB: 
9000 067412 003116 T35WB: .WORD FREE sADORESS OF WRITE BUFFER 
9001 067414 000000 . WORD 
9002 067416 000000 T35SZ: .WORD O ;SIZE OF BUFFER CEXTENT) 
9003 EVEN 
9004 3 
9005 3 
9006 
9007 067420 +35eF2: 
9008 067420 010 T358SO: .BYTE 10 sBSELO AREA 
067421 200 T358S1: .BYTE 200 sB8SEL1 AREA 
9010 067422 000000 T35S2: WORD sSEL 2 AREA 
9011 067424 000000 T35S3: dD O ;DATA AREA 
9012 F 
9013 3 
9014 
bar ;TAPE MOTION PACKET COMMAND VALUES 
9017 067426 100205 T3SRN: .WORD 100205 ;REREAD DATA (NEXT) 
9018 067430 100605 T35WOR: .WORD 100605 sREREAD DATA RETRY 
9019 067432 102205 T3SCON: .WORD 102205 sWRITE CONTINOUS 
oose 067434 177777 .WORD 177777 sEND OF DATA 
9022 
9023 067436 000000 T3SCNT: .WORD 0 sTAPE TIMER COUNTER STORAGE AREA 
9024 067440 000000 T3SCNU: .WORD 0 sTAPE TIMER COUNTER STORAGE AREA 
2oes 067442 000000 T3SOLY: .WORD 0 sDELAY COUNTER 
ae 
9027 sLOCAL TEXT MESSAGES FOR TEST 
9028 as 
9030 067444 124 141 160 T3SWNG: .ASCIZ ‘Tape Position Incorrect After REREAD Previous (OPP=1)’ 
9031 067532 124 123 123 T3SROF: .ASCIZ ‘TSSR jngorvest After READ DATA Command’ 
32 067601 122 105 122 T3SRRF: .ASCIZ ‘REREAD Previous (Space Reverse, Read Forward) Command Failed’ 
9033 067676 120 117 123 T3S5SC: ASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ 
067760 122 111 102 T3SLOR: .ASCIZ ‘RIB NOT SET AF TER READ REVERSE INTO BOT’ 
9035 070030 124 123 123 T3SWOF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 
070105 111 154 154 T35LOQ: .ASCIZ ‘Illegal Mode Bits. Failed To Set ILC Bit In XSTO' 
9037 070166 124 123 123 T3SWOE: .ASCIZ ‘TSSRON Not Correct After WRITE DATA Command’ 
124 141 160 T3S5B0T: .ASCIZ ‘T Not At BOT After REWIND connane (BOT Not Set In XSTO)' 
9039 070333 127 122 111 T3STIM: .ASCIZ ‘WRITE DATA RETRY'‘S Erase Tape “aceRt: 
070410 122 105 122 T3SEOT: .ASCIZ ‘REREAD DATA OVER EOT GAVE NO O TAPE Pe stavds — T 
9041 7 124 123 123 T3STM: ASCIZ ‘TSSR Not Correct After REREAD C 
9042 07 122 145 167 T3SRWN: .ASCIZ ‘Rewind (POSITION) Command Not | eit nie 
9043 070613 122 101 115 SSRNC: .ASCIZ ‘RAM Error, Correct Data Pattern Not In Rem‘ 
9044 070666 124 123 123 TS3SAM3: .ASCIZ ‘TSSR in!’ Failed After REREAD COMMA 
9045 070735 104 162 151 T3SOFL: .ASCIZ ‘Drive 7 Select Failed To Set “OFL” In TSSR’ 
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9046 071010 124 123 123 T3SWOD: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
9047 071100 124 123 123 T3SWOC: .ASCIZ ‘TSSR Not Correct After oe alo Command’ 
9048 071153 103 126 103 T3SVCK: .ASCIZ ‘CVC Set, Didn''t Reset VCK In DATA foamend Buffer’ 
9049 071226 124 123 102 T35BA: .ASCIZ ‘TSBA Not Correct After REREAD "ae 
9050 071301 127 122 111 T35WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accep ted CRAM Read)‘ 
9051 071370 122 145 141 T3SLON: .ASCIZ ‘Reading one Record Failed To Set Tae Bit In XSTO’ 
9052 071452 122 145 141 T3SLOP: .ASCIZ ‘Reading Lang Record Failed To Set RLS Bit In XSTO’ 
9053 071534 122 145 163 T3SPBP: .ASCIZ ee Byte Count Incorrect After Short Record aee 
9054 07 122 145 141 T3STRL: .ASCIZ ong Record Failed To Give T Status Alert 

Fs . oarre’ Bar TRY, At First Record, Failed To Set RIB Bit xST3° 
9056 124 123 123 T3SSCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS Command’ 
9057 072063 124 123 123 T3STSA: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY. Into BOT’ 
9058 072145 124 123 123 T3SWRF: .ASCIZ ‘TSSR Not Correct After WRITE DATA _ im Command’ 


9059 072225 104 141 164 T3SOTA: .ASCIZ ‘Date Compere Error, Data Read From rane Mat Equel To Written’ 
9060 072322 124 123 123 T35SSR: .ASCIZ ‘TSSR Incorrect by A ~ ee Command’ 
9061 072403 115 117 124 T3SMOT: .ASCIZ ‘MOT Bit (XSTO) Not Se ng Rewind (Extended Features Mode)’ 
9062 072501 111 156 164 T3SINT: .ASCIZ ‘Interrupt Received thy | REW ND Command CIE Bit Not Set)’ 
9063 072572 117 120 115 T3SOPM: .ASCIZ ‘OPM Bit (XST2) Not Set Duri Rewind (Extended Features Mode)’ 
9064 072670 124 123 123 T3SRWE: .ASCIZ ‘TSSR Incorrect After Exte Features REWIND Command’ 
9065 072756 116 157 040 TS3SNIN: .ASCIZ = Interrupt Detected After REWIND IMMEDIATE’ 
9066 073033 105 170 164 TST35iD: ASCIZ ‘Extended Mode Functions’ 
9067 EVEN 
9069 ‘i 
8 
9070 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
9071 sWRITE SUBSYSTEM MEMORY COMMAND 
9072 3 
9073 8° 
9074 
9075 073064 T3SREST: 
9076 073064 SAVREG re — — 
9077 073070 012701 067270 MOV @T3SPACKET,R1 sSTART OF THE PACKET 
9078 073074 012721 100004 MOV #100004, (Ri) ORITe SUBSYSTEM MEM. WITH ACK, 
9079 073100 012721 067300 MOV O@T3S5DATA, (Ri) sADDRESS OF CHARAISTICS DATA BLOCK 
9080 073104 005021 CLR or ge sEXTENDED ADDRESS 
9081 073106 012721 000012 MOV eCR1)+ ;SIZE OF DATA BLOCK IN BYTES 
9082 073112 012721 067312 MOV STSS8FR CRI)» sADDRESS OF MESSAGE BUFFER 
9083 073116 005021 CLR (Ride 
9084 073120 012721 000024 MOV #20. ,CR1)+ sLENGTH OF MESSAGE BUFFER 
9085 073124 005021 CLR (R1)+ 
9086 073126 012711 000000 MOV #0,(R1) ;SELECT DRIVE ZERO 
9087 073132 0°° 792 000030 MOV $24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
9088 073136 0. 2 177777 067312 64%: MOV #177777, T35SBFRCR2) ;ALL ONES TO MESSAGE BUFFER 
9089 073144 005. .2 TST -(R2) iNEXT LOCATION 
9090 073146 022702 000000 CMP #0,R2 sAT END OF LOOP YET 
9091 073152 001371 BNE 64$ sKEEP GOING UNTIL DONE 
pao | 073154 000207 RTS PC ;RETURN 
9094 073156 T35RT2: 
9095 073156 SAVREG sSAVE THE REGISTERS 
9096 073162 012701 067400 MOV @T35PK2,R1 sSTART OF THE PACKET 
9097 073166 012721 100006 MOV #100006, (R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
9098 073172 012721 067420 MOV @T35BF2,(R1)+ sADDRESS OF DATA BLOCK 
9099 073176 005021 CLR CR1)+ sEXTENDED ADDRESS 
9100 073200 012721 000006 MOV 06.,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
9101 073204 005021 u R1)+ 
9102 073206 012701 067420 MOV @T358F2,R1 sPOINT TO DATA SEL AREA 
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SEQ 0202 
| TEST 7: EXTENDED MODE FEATURES 


9103 073212 005021 CLR CRi)>+ } 
9104 073214 005011 CLR CR1) | 
9105 073216 000207 RTS PC sRETURN ' 
9106 073220 T35RT3: | 
9107 073220 SAVREG sSAVE REGISTERS | 
9108 073224 012701 067410 MOV @T35PK3,R1 ;SET UP POINTER ADDRESS 
9109 073230 005021. CLR CR1)+ sCOMMAND SPAC 
9110 073232 005021 CLR CR1)+ sADORESS OF DATA BLOCK 
9111 073234 005021 CLR CR1)+ HEX TENDED ADDR 
9112 073236 005011 CLR CR1) sSIZE OF DATA TRANSFER BLOCK 
9113 073240 000207 RTS PC sRETURN 
9114 073242 ENDTST 
073242 L10063: 
073242 104401 TRAP CsETST 
9115 -SBTTL TEST 8: RECORD BUFFERING 
9116 3¢ 
sie | 
3 
9119 3 THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA 
9120 3 AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY 
9121 3 CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA 
9122 3 M7196 CONTROLLER MODULE IS XTENDED FEATURES MODE 
9123 3 CAS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED 
9124 3 INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
9125 3 WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
9126 3 BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
9127 3 PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
4p 3 ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 
3 
9130 3 VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
9131 3 PROPERLY AT LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 
9132 3 PERFORMED: 
9133 3 
bd fo 3 1. THE TAPE IS REWOUND. 
3 
9136 3 2. ge on IS DISABLED AND LOW TAPE SPEED IS SELECTED 
333% 3 (VIA WRITE CHARACTERISTICS COMMAND). 
3 
9139 3 3. AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
ones 3 MOVE THE TAPE OFF BOT. 
’ 
9142 ; 4. THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
Lp 3 TAPE TO REPOSITION AND COME TO REST. 
3 
9145 ; S. A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K, 
9146 : IS ISSUED, AND THE PROGRAM ae rad IN A WAIT LOOP, THE 
9147 3 TIME IT TAKES TO RECEIVE COMMAND TERMINATION. THIS 
9148 3 SHOULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS 
9149 3 OISABLED. 
9150 3 
Stes 3 6. BUFFERING IS ENABLED. 
3 
9153 ; 7. THE WRITE DATA COMMAND IS AGAIN ISSUED, WITH THE SAME 
9154 ; BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
9155 F COMPLETION IS AGAIN MEASURED. 
9156 3 
3 


8. THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND 
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9206 
9207 


3 
073372 


012737 
37 


ooeess 
7354 


002116 
177772 
177756 
075632 


002172 


002210 


075632 


e+ @e es GF OF Ge GF Ge Ge Ge Ge Ge OF oe 


3¢ 


MOV 
CLR 


oad ERED CASES ARE COMPAREO. 
TIME MEASURED FOR T 


THAN THAT MEASURED FOR THE BUFFERED CASE. 


THE pti & srerr 


RECORD OFF 
THE 


RANGE 20 T 


GEPRT1,EPRTSW 


PC ,KTOFF 
@TST36ID,RO 
PC, TSTSETUP 
#5, LOOPCNT 
T36CNT 


iTEST 8, SUBTEST 1 


THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 


T8:: 
sPRIMARY — MESSAGE 
sTURN OFF 


T11 
SASCII MESSAGE TO IDENTIFY TEST 
iW] EST SETUP 


ATIONS 
s;CLEAR TAPE RECORD COUNTER 


; VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
;THE TAPE IS a oe AT BOT CAUSES FUNCTION REJECT 


; ; TERMINATION : 
sERROR BIT SET. 


T36LOOP : 


10$%: 


DEC 
BNE 


H THE NON-EXECUTABLE FUNCTION (NEF ) 


PC, T36REST 
T36 
PC, SOF INIT 
20% 


250 


T360LY 
10$ 


iT IS VERIFIED THAT THE 
NON-BUFFERED CASE IS MUCH LARGER 


SEQ 0203 


EXCEPT FOR REWINDING AND WRITING A 
La Het ~ ges FOR VARIOUS BYTE COUNTS IN 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T8.1: 


TRAP 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP apr COUNTER 
;CLEAR COUNTER 
:00 INITIALIZE ON CONTROLLER 
3;8R IF INIT WAS OK 
sDELAY ABOUT .25 SEC 


sBUMP_COUNTER 
3BR, IF COUNTER NOT DONE 


C$6SUB 


0250,(PC)+ 
-6(PC) 
74 
-22(PC) 

0 
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| TEST 8: RECORD BUFFERING 
| 9208 073374 005237 002214 
010001 
9213 073402 
3402 


010742 
002214 


011074 


002214 


075510 
702 000002 


002214 


002174 
9246 073542 052737 0000350 
012704 075460 
010742 


002214 


005052 
012114 


075500 
075500 


002174 075500 20%: 
075460 


25%: 


40%: 


INC 
MOV 
ERROF 


CKLOOP 


FATFLG 
RO,R1 
ERRNO, SFIERR, SFIMSG 


UNITN, T360SW 
@TS6PACKET .R4 

PC ,WRICHR 

25% 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


PC,REWIND 
30% 


FATFLG 
ERRNO, T36RWN,PKTSSR 


T36BFR+6,R1 
R1,R2 
+ pate Ta 


FATFLG 
ERRNO, T36B0T , EXPREC 


UNITN, T360SW 
@81T3!BIT4, T360SW 
@TS6PACKET ,R4 

PC .WRICHR 

503 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


OR COUNT 
SCONTENTS OF TSSR REGISTER 
SFATAL ERROR TSSR WAS NOT 
TRAP 
. WORD 
“WORD 
“WORD 


SEQ 0204 


CSEROF 
601 

SFIERR 
SFIMSG 


UP DRIVE NUMBER 
sSUBROUTINE NEEDS PACKET ADORESS 


WRITE CHARACTERISTICS 
COMMAND ISSUED OK 


3E 
: SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC > 


- WORD 
- WORD 
;LOOP IF SELECTED 
TRAP 

sCALL TAPE REWIND COMMAND 
;8R, IF NO 
;SET UP REWIND PACKET ADDRESS 

OUNT 


sERROR C 
;REWIND NOT ACCEPTED 


TRAP 
. WORD 
- WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 
sPICK UP XSTO 
3SET UP EX 


sD0ES EXP 
iBR, IF EQUAL COK) 


sERROR COUNT 
; TAPE not AT BOT AFTER — 


XPECTED 
iSET BOT BIT IN EXPECTED 
REC'D 


- WORD 
- WORD 
- WORD 
TRAP 


;LOOP IF SELECTED 


3;SET UP DRIVE NUMBER 
s25-APR-83 REV B 

sSUBROUTINE NEEDS PACKET 
sISSVE WRITE CHARACTERISTICS 
:BR, COMMAND ISSUED OK 


sERROR COUNT 
sSAVE CONTEN'S OF TSSR 
sWRITE CHARACTERISTISC ron 


sLOOP IF SELE<TED 


CSERHRD 


804 
T3680T 
EXPREC 


CsCLPi 


- TURN ON THE BUFFERING 
ADORESS 
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SEQ 0205 
TEST 8: RECORD BUFFERING | 
073600 104406 TRAP = CSCLP1 
9257 073602 012737 003720 075606 MOV #2000. , T36SZ :SET UP RECORD SIZE 
9258 073610 013737 003116 075602 MOV FREE, T36WB sADORESS OF WRITE BUFFER 
9259 073616 012737 140005 075600 MOV 0140005, T36PK3 {WRITE DATA, ACK,CVC=1 COMMAND 
9260 073624 012704 075600 MOV OT36PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 
1 073630 010465 MOV R4, TSDBCRS) , 
9262 073634 004737 016330 JSR *WAITF ;WAIT FOR SSR TO SET 
9263 073640 016501 2 MOV TSSR(RS),RL ;GET TSSR CONTENTS 
9264 073644 012702 000200 MOV @SSR.R2 sSET UP EXPECTED 
9265 073650 020102 CMP R1,R2 ;ARE THEY EQUAL 
9266 073652 001406 BEQ 60% :8R, IF OK 
9267 073654 005237 002214 INC FATFLG COUNT 
9271 073660 ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
073660 104456 TRAP  CSERHRD 
073662 001446 .WORD 606 
073664 005107 "WORD WRTERR 
073666 012126 "WORD PKTSSR 
9272 073670 60%:  CKLOOP ;LOOP IF SELECTED 
073670 104406 TRAP _—CSCLP1 
9273 073672 012737 000005 075632 MOV 00S. , T36DLY 325-APR-83 REV B - DELAY FOR TAPE TO STOP 
9274 073700 70%: DELAY 1 325-APR-83 REV B - DELAY R ROUTINE aft 
073700 012727 000001 #1.(PC)+ 
073704 000000 MooRD 0 
073706 013727 002116 MOV LSOLY,(PC)+ 
073722 000000 . WORD 
077714 005367 177772 bEC ~6¢PC) 
© (1/20 001375 BNE 
073722 005367 177756 DEC *3¢PC) 
073726 001367 BNE .-20 
9275 073730 005337 075632 aod T36DLY ;BUMP COUNT 
9276 073734 001361 BNE 70% :8R, IF MORE DELAY TO GO 
9277 073736 012737 006642 075606 MOV 03490. ,T36SZ ;SET SIZE OF TRANSFER 
9278 073744 012737 140005 075600 MOV @140055, T36PK3 ;WRITE DATA, ACK,CVC=1 COMMAND 
9279 073752 012704 075600 MOV OT 56PK3.R4 3SET UP R4& WITH PACKET ADDRESS 
9280 073756 005037 075626 CLR T36CNT ;CLEAR COUNTER 
9281 073762 012737 001750 075632 MOV #1000. , T36DLY ;SET DROP DEAD COUNTER VALUE 
9282 073770 010465 000000 MOV R4, TSOBCRS) sISSUE COMMAND 
9283 073774 016501 000002 80%: MOV TSSRCRS) RL ;GET TSSR CONTENTS 
9284 074000 032701 000200 BIT @SSR.R1 ;CHECK FOR SSR SET 
9285 074004 001021 BNE 90% 3BR, IF SSR IS SET 
9286 074006 005237 075626 INC T36CNT ;BUMP CYCLE COUNTER 
9287 074012 DELAY 1 ;CUT NUMBER OF LOOPS DOWN 
074012 012727 000001 MOV @1,.(PC)+ 
074016 000000 +, WORD 
074020 013727 002116 MOV LSOLY.CPC)+ 
074024 000000 .WORD 0 
074026 005367 177772 bEC -6¢PC) 
074032 001375 BNE 
074034 005367 177756 DEC "32¢PC) 
074040 001367 BNE .-20 
9288 074042 005337 075632 DEC T36DLY ;BUMP DROP DEAD COUNTER 
9289 074046 001352 BNE 808% 3BR, IF THERE IS STILL TIME 
9290 074050 012702 000200 90%: MOV @SSR,R2 ;SET UP EXPECTED 
9291 074054 020102 CMP R1,R2 ;ARE THEY EQUAL 
9292 074056 001406 BEQ 100% :8R. IF OK 


9293 074060 005237 002214 INC FATFLG ERROR COUNT 
9297 074064 ERRHRD ERRNO, TS6WDE ,PKTSSR sTSSR INCORRECT AFTER READ DATA 
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5460 
010742 
002214 


002116 
177772 
177756 
075632 
900200 


002214 


075626 
075630 


002214 
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075500 
075500 


075606 
075600 


075632 


1008: 


1108: 


1208: 


1308: 


140%: 


UNITN, T360SW 

@BIT3, T360SW 
@TS6PACKET .R4 

PC ,WRTCHR 

110% 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


#3490. , T36SZ 
#140005,T 3 
@T36PK3 ,.R4 
T36CNU 


#1000. , T36DLY 
R4, TSOBCRS) 
TSSRCRS),R1 
@SSR,R1 


130% 
ames 


FATFLG 
ERRNO, WRTERR ,PKTSSR 


T36CNT,.R1 
T36CNU,R2 
R1,R2 


FATFLG 


SEQ 0206 
TRAP — CSERHRD 
. WORD 5 
“WORDT 
“WORD  PKTSSR 

LOOP IF SELECTED 
TRAP CSCLPA 

SET UP DRIVE NUMBER 

125-APR-83 REV 8 - TURN OFF BUFFERING 

}SUBROUTINE NEEDS PACKET ADDRESS 

LISSUE WRITE CHARACTERISTICS 

i8R. IF COMMAND ISSUED OK 

TERROR 

;SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 
TRAP  CSERHRD 
. WORD 
“WORD WRTMSG 
“WORD SFIMSG 

;LOOP IF SELECTED 
TRAP CSCLPA 

SET SIZE OF TRANSFER 

WRITE DATA, ACK,CVC=1 COMMAND 

SET UP R4 WITH PACKET ADDRESS 

CLEAR COUNTER 

1SET DROP DEAD COUNTER VALUE 

GET TSSR CONTENTS 

}CHECK FOR SSR SET 

i8R. IF SSR IS SET 

BUMP CYCLE COUNTER 

{CUT NUMBER OF LOOPS DOWN 
MOV #1,(PC)+« 
“WORD 
MOV LSOLY.CPC)+ 
_WORD 
bEC ~6(PC) 
BNE e®* 
DEC “22¢PC) 
BNE te 

;BUMP DROP DEAD COUNTER 

;@R, IF THERE IS STILL TIME 

;SET UP EXPECTED 

TARE THEY E 

i8R, IF OK 

ERROR COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHROD 
: 609 
"WORD WRTERR 
“WORD PKTSSR 

;LOOP IF SELECTED 
TRAP ss CSCLPL 


sGET FIRST COUNTER 

iGET SECOND COUNT 

:25- APR-83 REV B - COMPARE EM 

BR, IF VALUES ARE CORRECT (OK) 
sERROR COUNT 
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TEST 68: RECORD BUFFERING 


SEQ 0207 


9341 074324 ERRHRD ERRNO, TS6NAS, EXPREC ;TAPE NOT AT CORRECT SPEED 
074324 1 TRAP  CSERHRO 
074326 001452 810 
074330 075634 “WORD T36NAS 
4332 015554 EXPREC 
74334 104406 TRAP  CSCLP1 
9343 074336 ENOSUB 
4336 110071: 
74336 104403 CsesuB 
74340 023727 002214 000017 CMP FATFLG, #15. sIS ERROR COUNT AT 25 
9345 074346 103402 BLO 4 38R, IF LESS THAN 25 
9346 074350 004737 017262 JSR PC, CKDROP sTRY TO DROP THE UNIT 
9347 074354 999%: 
9348 se 
9349 3 
9350 ;TEST 8, SUBTEST 2 
3352 
9353 THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA 
9354 AND READ NEXT COMMANDS, OPERATES PROPERLY PROPERLY 
9355 CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
9356 M7196 CONTROLLER MODULE IS NOT ALREADY IN EX TURES MODE 
9357 AS CONTROLLED BY THE DIP SWI ), IT IS PLACED 
9358 INTO THAT Y RTING OF Sui 
9359 WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
9360 BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
9361 PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
9362 ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 
9364 VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
9365 PROPERLY AT LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 


1. THE TAPE IS REWOUND. 


2. BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMAND) = 


3. AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT. 


4. THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
TAPE TO REPOSITION AND COME TO REST. 


5S. & WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3. ak: 
IS ISSUED, AND AM COUNTS 
TIME IT TAKES TO RECEIVE COMMAND TERMINATI Omnis = 
SHOULD BE A RELATIVELY LONG TIME SINCE SUEFERING 1s 
DISABLED 

6. BUFFERING IS ENABLED. 

7. THE WRITE DATA COMMAND IS AGAIN ISSUED, WITH THE SAME 


BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
COMPLETION IS AGAIN MEASURED. 


0 
wa 
~ 
~ 
oo Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge GS Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


| 

j 

} 

| 

07 : | 
9342 p Lint 94 300%: CKLOOP sLOOP IF SELECTED 
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SEQ 0208 
TEST 8: RECORD BUFFERING 


| 
9391 3 8. THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND 
| 9392 ; BUFFERED CASES ARE COMPARED. IT IS VERIFIED THAT THE 
| 9393 3 TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER 
| + dn ; THAN THAT MEASURED FOR THE BUFFERED CASE. 
3 
| 9396 ’ THE PREVIOUS STEPS, EXCEPT FOR REWINDING AND WRITING A 
9397 3 RECORD OFF BOT, ARE REPEATED FOR VARIOUS BYTE COUNTS IN 
9398 3 THE RANGE 20 THROUGH 3.5K. 
9399 3 
9400 Hy 
9401 3 
9402 3° 
9403 074354 BGNSUB 3; >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
074354 T8.2: 
074354 104402 TRAP Cs6SUB 
9404 074356 004737 100640 JSR PC, T36REST +SET COMMAND PACKET 
9405 074362 004737 100732 JSR PC. T36RT2 3SET UP OTHER COMMAND PACKET 
074 004737 10077 JSR PC, T36RTS ;SET UP OTHER COMMAND PACKET 
9407 074372 C12737 176750 075632 MOV €65000. » T36DLY ;SET UP DELAY COUNTER 
07 005037 0756 CLR T36CNT sCLEAR COUNTER 
07 004737 016054 10$: JSR PC,SOFINIT 300 INITIALIZE = CONTROLLER 
9410 074410 103426 BCS 20$ :BR IF INIT WAS OK 
9411 074412 DELAY 250 ;DELAY ABOUT .25 SEC 
074412 012727 000250 MOV @250,(PC)+ 
074416 000000 . WORD 0 
074420 013727 002116 MOV LSOLY,CPC)+ 
074424 000000 .WORD 0 
074426 005367 177772 DEC -6(PC) 
074432 001375 BNE 74 
74434 005367 177756 DEC -22(PC) 
074440 136 BNE .-20 
9412 074442 005337 075632 DEC T360LY ;BUMP COUNTER 
9413 07 13 BNE 10$ iBR, IF COUNTER NOT DONE 
9414 074450 005237 002214 INC FATFLG sERROR COUNT 
9418 074454 010001 MOV RO,R1 ; CONTENTS OF TSSR REGISTER 
9419 074456 ERROF ERRNO, SFIERR,SFIMSG :FATAL ERROR TSSR WAS NOT OK 
074456 04455 TRAP CSEROF 
074460 001453 . WORD 811 
074462 .- WORD SFIERR 
074464 012114 WORD SF IMSG 
074466 013737 002174 075500 20%: MOV UNITN, T360SW :SET UP DRIVE NUMBER 
9421 074474 052737 000040 075500 Is BITS, T360SW ; TURN ON HIGH SPEED 
$422 074502 012704 075460 MOV @T36PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
9423 074506 004737 010742 JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 
9424 074512 103407 BCS 25% :BR, IF COMMAND ISSUED OK 
9425 074514 005237 002214 INC FATFLG ne COUNT 
9429 074520 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
074522 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERTST ec —— 
074522 104456 TRA CSERHRD 
074524 001454 , WORD 812 
074526 S05 . WORD WRTMSG 
074530 012114 . WORD SFIMSG 
9431 074532 25%: CKLOOP ;LOOP IF SELECTED 
074532 104406 TRAP CS$CLP1 
9432 074534 004737 011074 JSR PC, REWIND ;CALL TAPE REWIND COMMAND 
9433 074540 103407 BCS 30$ ;8R, IF NO PROBLEM 
34 074542 010004 MOV RO,R4 ;SET UP REWIND PACKET ADDRESS 


SS 


& 
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SEQ 0209 
TEST 68: RECORD BUFFERING 
| 9435 074544 005237 002214 INC FATFLG ;ERROR COUNT 
| 9439 074550 ERRHRD ERRNO, T36RWN,PKTSSR ;REWIND NOT ACCEPTED 
074550 104456 TRAP CSERHRD 
074552 001455 .WORD 613 | 
| 074554 077041 . WORD T36RWN | 
| 074556 012126 "WORD PKTSSR 
9440 074560 308: CKLOOP ;LOOP IF SELECTED 
074560 104406 TRAP —« CSCLP1 
9441 074562 013701 075510 MOV T36BFR+6,R1 ;PICK UP XSTO 
9442 074566 010102 MOV R1,R2 ;SET UP EXPECTED 
9443 074570 052702 000002 BIS @B1IT1,R2 :SET BOT BIT IN EXPECTED 
9444 074574 020102 CMP R1,R2 ;D0ES EXP = REC'D 
9445 074576 001406 BEQ 40$ :BR, IF EQUAL (OK) 
9446 074600 005237 002214 INC FATFLG ERROR COUNT 
9450 074604 ERRHRD ERRNO, T36B0T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
074604 104456 TRAP  CSERHRD 
074606 001456 .WORD 614 
074610 076535 "WORD T36B0T 
074612 C15554 "WORD EXPREC 
9451 074614 40$: CKLOOP ;LOOP IF SELECTED 
074614 104406 TRAP  C$CLP1 
9452 074616 013737 002174 075500 MOV UNITN, T36DSW :SET UP DRIVE NUMBER 
9453 074624 052737 000030 075500 BIS OB1T3!BIT4, T36DSW 325-APR-83 REV B - TURN ON THE BUFFERING 
9454 074632 012704 075460 MOV @T36PACKET.R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
9455 074636 004737 010742 JSR PC ,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
9456 074642 103407 BCS 50$ ;8R, IF COMMAND ISSUED OK 
9457 074644 005237 002214 INC FATFLG ;ERROR COUNT 
9461 074650 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
9462 074652 ERRHRD ERRNO,WRTMSG,SFIMSG ;WRITE CHARACTERISTISC FAILED 
074652 104456 TRAP § CSERHRD 
074654 001457 .WORD 815 
074656 "WORD WRTMSG 
7 012114 "WORD SFIMSG 
9463 074662 50$: CKLOOP ;LOOP IF SELECTED 
074662 104406 TRAP _— CSCLP1 
9464 074664 012737 003720 075606 MOV €2000. ,136SZ ;SET UP RECORD SIZE 
9465 074672 013737 003116 075602 MOV FREE, T36WB ;ADDRESS OF WRITE BUFFER 
9466 074700 012737 140005 075600 MOV #140005, T36PK3 ;WRITE DATA,ACK,CVC=1 COMMAND 
9467 074706 012704 075600 MOV OT36PK3._R4 ;SET UP R4 WITH PACKET ADDRESS 
9468 074712 010465 000000 MOV R4, TSDBCRS) ;ISSUE COMMAND 
9469 074716 004737 016330 JSR PC: WAITF ;WAIT FOR SSR TO SET 
9470 074722 016501 000002 MOV TSSRCRS).RL ;GET TSSR CONTENTS 
9471 074726 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 
9472 074732 020102 CMP R1,R2 ;ARE THEY EQUAL 
9473 074734 001406 BEQ 603 BR, OK 
9474 074736 005237 002214 INC FATFLG ;ERROR COUNT 
9478 074742 ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
074742 104456 TRAP C$ERHRD 
074744 001460 .WORD 816 
074746 005107 "WORD WRTERR 
074750 012126 "WORD PKTSSR 
9479 074752 603: CKLOOP ;LOOP IF SELECTED 
074752 104406 TRAP _—C$CLP1 
9480 074754 012737 000005 075632 MOV 005. , T36DLY 325-APR-83 REV B - DELAY FOR TAPE TO STOP 
9481 074762 70$: DELAY 1 ;25-APR-83 REV B - DELAY ROUTINE CALL 


074762 012727 000001 MOV @1,(PC)+ 
000000 -WORD 0 
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| 
| TEST 8: RECORD BUFFERING . 
| 074770 013727 002116 MOV LSOLY.(PC)+ 
074774 000000 .WORD 0 
| 074776 005367 177772 DEC -6(PC) 
075002 001375 BNE .- | 
075004 005367 177756 DEC -22(PC) 
075010 001367 BNE .-20 
| 9482 075012 005337 075632 DEC T36D0LY sBUMP COUNTER DOWN 
9483 075016 001361 BNE 70$ ;6R, IF MORE DELAY TO GO 
9484 075020 012737 006642 075606 MOV #3490. ,136SZ sSET SIZE OF T FER 
9485 075026 012737 140005 075600 MOV #140005 , T36PK3 sWRITE DATA. “AGK. Ayes COMMAND 
9486 075034 012704 075600 MOV @T36PK3,R4 ;SET UP R TH BACKET ADORESS 
9487 075040 005037 075626 CLR T36CNT sCLEAR COUNTER 
9488 075044 012737 001750 075632 MOV #1000. , T36DLY ;SET DROP DEAD COUNTER VALUE 
9489 075052 010465 000000 MOV R4, TSOBCRS) :1SS 
9490 075056 016501 000002 80$: MOV TSSRCRS).RL :GET TSSR CONTENTS 
9491 075062 032701 000200 BIT @SSR,R1 s;CHECK FOR SSR SET 
9492 075066 001021 BNE 90$ ;BR, IF SSR IS SET 
9493 075070 005237 075626 INC T36CNT ;BUMP CYCLE COUNTER 
9494 075074 DELAY 1 ;CUT NUMBER OF LOOPS DOWN 
075074 012727 000001 MOV #1,(PC)+ 
075100 000000 . WORD 
075102 013727 0021156 MOV LSOLY.(PC)+ 
075106 000000 . WORD 
075110 005367 177772 DEC -6(PC) 
075114 001375 BNE -- 
075116 005367 177756 DEC -22(PC) 
075122 001367 .-20 
9495 075124 005337 075632 DEC T360LY ;BUMP DROP DEAD COUNTER 
9496 075130 001352 BNE 80% ;8R, IF THERE IS STILL TIME 
9497 075132 012702 000200 90$: MOV @SSR,R2 ;SET UP EXPECTED 
9498 075136 020102 CMP R1,R2 ;ARE THEY EQUAL 
9499 075140 001406 BEQ 100$ :BR, IF OK 
9500 075142 005237 002214 INC FATFLG ;ERROR COUNT 
9504 075146 ERRHRD ERRNO, T36WDE,PKTSSR sTSSR INCORRECT AFTER READ DATA 
075146 104456 TRAP CSERHRD 
075150 001461 WORD 817 
075152 076463 WORD T36WDE 
075154 012126 WORD PKTSSR 
9505 075156 100$: CKLOOP ;LOOP IF SELECTED 
075156 104406 TRAP CSCLP1 
9506 075160 013737 002174 075500 MOV UNITN, T360SW ;SET UP DRIVE NUMBER 
9507 075166 052737 000010 075500 BIS @B1T3, T360SW :25-APR-83 REV B - TURN OFF BUFFERING 
9508 075174 012704 075460 MOV @T36PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
9509 075200 004737 010742 JSR PC, WRTCHR s;ISSUE WRITE CHARACTERISTICS 
9510 075204 103407 BCS 110% ;8R, IF COMMAND ISSUED OK 
9511 075206 005237 002214 INC FATFLG ;ERR 
9515 075212 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
9516 075214 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
075214 104456 TRAP CSERHRD 
075216 001462 .WORD 818 
075220 005052 "wORD WRTMSG 
075222 012114 .WORD SFIMSG 
9517 075224 110$: CKLOOP ;LOOP IF SELECTED 
075224 104406 TRAP CsCLP1 
9518 075226 012737 006642 075606 MOV #3490. ,T36SZ ;SET SIZE OF TRANSFER 
9519 075234 012737 140005 075600 MOV #140005, T36PK3 ;WRITE DATA, ACK,CVC=1 COMMAND 
9520 075242 012704 075600 MOV @T36PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
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SEQ 0211 
TEST 8: RECORD BUFFERING 
| 9521 075246 005037 075630 CLR TS6cNU s CLEAR COUNTER 
9522 075252 012737 001750 075632 MOV T360LY T DROP DEAD COUNTER VALUE 
9523 075260 010465 000000 MOV Ras oreoBCRSD +e sue COMMAND 
9524 075264 016501 000002 120%: MOV TSSRCRS), RI :GET TSSR CONTENTS 
9525 075270 032701 000200 BIT @SSR.R1 sCHECK FOR SSR SET 
9526 075274 001021 BNE 1 ;BR, IF SSR IS SET 
9527 075276 005237 075630 INC T36CNU ;BUMP CYCLE COUNTER 
9528 075302 DELAY 1 ;CUT NUMBER OF LOOPS DOWN 
075302 012727 000001 MOV #1, (PC) 
075306 000000 . WORD 
075310 013727 002116 MOV LSOLY,(PC)+ 
075314 000000 . WORD 
075316 005367 177772 bEC -6(PC) 
075322 001375 BNE _-4 
75324 005367 177756 DEC -22(PC) 
075330 001367 .* 
075332 005337 075632 DEC T36DLY :BUMP DROP DEAD COUNTER 
9530 075336 001352 BNE 120% :8R, IF THERE IS STILL TIME 
9531 075 €12702 000200 130$: MOV @SSR,R2 ;SET UP EXPECTED 
9532 075344 020102 CMP R1,R ;ARE THEY EQUAL 
9533 075 001406 BEQ :BR, OK 
9534 075350 005237 002214 INC FATFLG ERROR COUNT 
9538 075354 ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
075354 104456 TRAP  CSERHRD 
075356 001463 ; 819 
075360 005107 "WORD WRTERR 
075362 012126 ‘WORD PKTSSR 
9539 075364 140%:  CKLOOP ;LOOP IF SELECTED 
075364 TRAP = CSCLP1 
075366 013701 075626 MOV T36CNT,R1 :GET FIRST COUNTER 
9541 075372 013702 075630 MOV T36CNU,R2 :GET SECOND COUNTER 
9542 075376 020102 CMP R1,R2 :25-APR-83 REV B - COMPARE EM 
9543 07 00 BLE ;BR, IF VALUES ARE CORRECT (OK) 
9544 075402 005237 002214 INC FATFLG ;ERROR COUNT 
9548 075406 ERRHRD ERRNO, T36NAS,EXPREC ;TAPE NOT AT CORRECT SPEED 
07 104456 TRAP  CSERHRO 
075410 001 .WORD 620 
075412 075634 “WORD T36NAS 
075414 015554 "WORD EXPREC 
9549 075416 300$:  CKLOOP ;LOOP IF SELECTED 
075416 104406 TRAP _— CS$CLPi 
9550 075420 ENDSUB 
075420 L10072: 
075420 104403 TRAP C$ESUB 
9551 075422 023727 002214 000017 céP FATFLG, #15. :IS ERROR COUNT AT 25 
075430 103402 BLO 999$ :8R, IF LESS THAN 25 
9553 075432 004737 017262 JSR PC, CKDROP ;TRY TO DROP THE UNIT 
9554 075436 999% 
9555 : 
‘ 
9558 075436 004737 016536 JSR PC, TSTLOOP ;00 WE NEED TO ITERATE TEST 
9559 075442 103002 Bcc 163$ ;8R, IF NO LOOP REQUIRED 
075444 137 073300 JMP T36LO0P ;EXECUTE AGAIN 
9561 075450 163% 
9562 075450 EXIT TST ;ALL DONE THIS TEST 
075450 104432 TRAP CSEXIT 
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SEQ 0212 
, TEST 8: RECORD BUFFERING 
075452 003344 «WORD 1L10070-. 
3¢ 
5-44 sLOCAL STORAGE FOR THIS TEST } 
956 ge 
9567 075460 .*<,+10>€177770 
9569 075460 TS6PACKET: sCOMMAND PACKET FOR TEST 
9570 075460 100004 «WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
9571 075462 075470 -WORD T36DATA sADDRESS OF CHARACTERISTICS BLOCK 
9572 075464 000000 -WORD O 
9573 075466 000012 «WORD 10. sSTARTING VALUE OF BLOCK SIZE 
9574 075470 T36DATA: sCHARACTERISTICS DATA BLOCK 
9575 075470 075502 -WORD T36BFR sADDRESS OF MESSAGE BUFFER 
9576 075472 000000 -WORD O 
9577 075474 000024 «WORD 20. ;LENGTH OF MESSAGE BUFFER 
9578 075476 000000 «WORD O 
9579 075500 000000 T360SW: .WORD O sSELECT DRIVE 0 
Saee 075502 T36BFR: .BLKW 25. sMESSAGE BUFFER 
958 b 
44 | sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
958 a 
9585 075570 .*¢,¢10>€177770 
9587 075570 T36PK2: 
9588 075570 100006 -WORD 10006 ;WRITE SUB SYS MEM COMMAND, AND ACK 
95869 075572 075610 -WORD T36BF2 sADDRESS OF SELECT BLOCK DATA 
9590 075574 000000 -WORD O 
ead) 075576 000006 -WORD 6. sSIZE OF DATA PACKET 
9596 075600 T36PK3: 
9597 075600 100005 -WORD 100005 ;REREAD COMMAND, AND ACK 
9598 075602 T36RB: 
9599 075602 003116 T36WB: .WORD FREE sADORESS OF WRITE BUFFER 
9600 075604 000000 -WORDB O 
9601 075606 000000 T36SZ: .WORD 0 sSIZE OF BUFFER CEXTENT) 
9602 -EVEN 
9603 $ 
9604 3 
9605 r 
9606 075610 36BF 2: 
9607 075610 010 T368SO: .BYTE 10 ;BSELO AREA 
9608 075611 200 T36B8S1: .BYTE 200 ;BSEL1 AREA 
9609 075612 000000 T36S2: .WORD 0 ;SEL 2 AREA 
oett 075614 000000 T36S3: .WORD 0 sDATA AREA 
3 
9612 ; 
9613 EVEN 
338 sTAPE MOTION PACKET COMMAND VALUES 
9616 075616 100205 T36RN: .WORD 100205 sREREAD DATA (NEXT) 
9617 075620 100605 T36WOR: .WORD 100605 sREREAD DATA RETRY 
96186 075622 102205 T36CON: .WORD 102205 sWRITE CONTINOUS 
9619 075624 177777 -WORD 177777 sEND OF DATA 
9621 
9622 075626 000000 T36CNT: -WORD O sTAPE TIMER COUNTER STORAGE AREA 
9623 075630 000000 T36CNU: .WORD 0 sTAPE TIMER COUNTER STORAGE AREA 
9624 075632 000000 TS60LY: .WORD 0 sDELAY COUNTER 
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| SEQ 0213 
TEST 8: RECORD BUFFERING 
ees sLOCAL TEXT MESSAGES FOR TEST 
por 4 s- | 
9629 075634 111 is5 160 TS36NAS: .ASCIZ Mf mety we Tape Controller Gultor ing Joged 
30 075705 124 141 160 T36WNG: .ASCIZ rope osition Incorrect After AD Westen COPP=1)' 
75773 36R "Ts Incorrect After READ DATA Command’ 


32 076042 122 105 122 T36RRF: .ASCIZ ‘REREAD Previous (Space Reverse, Read Forward) Command Failed’ 
9633 076137 120 117 123 T36SC: .ASCIZ ‘POSITION (Space Command) Feiled, TSSR Not Correct’ 

9634 076221 122 111 102 T36LOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 

9635 076271 124 123 123 T36WOF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 

9636 076346 111 154 154 T36L0Q@: .ASCIZ ‘Illegal Mode Bits, obs Sh To Set ILC bie In XSTO’ 

9637 076427 122 105 122 T36SSR: .ASCIZ ‘REREAD COMMAND Not Ac oepted 

9638 076463 124 123 123 T36WDE: .ASCIZ ‘TSSR Not Correct After ie DATA Command 

9639 076535 124 141 160 T36B80T: .ASCIZ ‘T Not At BOT After way A Sennen cer Not Set In XSTO)’ 


9640 076630 127 122 111 T36TIM: .ASCIZ ‘WRITE SATAY RETRY''S Erase T Leng & 
9641 076705 122 105 122 T36EOT: .ASCIZ ‘REREAD DATA OVER EOT GAVE NOT Tape. STATUS ALE 
9642 076764 124 123 123 T36TM: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND Reject’ 
9643 077041 122 145 167 T36RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
9644 077110 122 101 115 T36RNC: .ASCIZ ‘RAM Error, Correct Dete Pattern Not In Rem’ 
9645 077163 124 123 123 T36AM3: .ASCIZ ‘TSSR ints Failed After REREAD COMMAND’ 
9646 077232 104 162 151 T360FL: .ASCIZ ‘Drive 7 Select Failed To Set “OFL” In TSSR’ 
9647 077305 124 123 123 T36WOD: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
9648 077375 124 123 123 T36WOC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command’ 
9649 077450 103 126 103 T36VCK: .ASCIZ ‘CVC Set, Didn’''t Reset VCK In Mes ‘Buffer’ 
9650 077523 124 123 102 T36BA: .ASCIZ ‘TSBA Not Correct After REREAD DATA Command’ 
9651 077576 127 122 111 T36WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
9652 077665 122 145 141 T36LON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In XSTO’ 
9653 077747 122 145 141 T36LOP: .ASCIZ ‘Reading L Record Failed To Set RLS Bit In XSTO’ 
9654 100031 122 145 163 T36PBP: .ASCIZ ee | Byte Count Incorrect After Short Record Read’ 
9655 100117 122 145 141 TS36TRL: .ASCIZ eding Long Record Failed To Give T Stetus Alert’ 
9656 100205 127 122 111 T36NEF: .ASCIZ ‘URETE ATA RETRY, At First Record, Failed To Set RIB Bit XST3' 
9657 100303 124 123 123 T36SCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS Command’ 
9658 100360 124 123 123 T36TSA: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY. Into BOT’ 
9659 100442 124 123 123 T36WRF: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY Command’ 
9660 100522 104 141 164 T36DTA: .ASCIZ ‘Date Con ere Error, Data Read From Tape Not Equal To Written’ 
9661 100617 122 145 143 TST36ID: -ASCIZ ecord Buffering’ 
9662 .EVEN 
Seen Y 
$ 
9665 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
9666 ;WRITE SUBSYSTEM MEMORY COMMAND 
9667 3 
9668 37 
9669 
9670 100640 T36REST: 
9671 100640 SAVREG sSAVE THE arersrens 
9672 100644 012701 075460 MOV @T36PACKET,R1 sSTART OF THE PACKET 
9673 100650 012721 1v0004 MOV #100004 ,(R1)+ i WRITE SUBSYSTEM MEM. WITH ACK, 
9674 100654 012721 075470 MOV @T36EDATA,(R1)+ sADDRESS OF CHARAISTICS DATA BLOCK 
9675 100660 005021 CLR oy a }EXTENDED ADORESS 
9676 100662 012721 000012 MOV CR1)« sSIZE OF DATA BLOCK IN BYTES 
9677 100666 012721 075502 MOV STSéOFR CR1)+ sADORESS OF MESSAGE BUFFER 
9678 100672 005021 CLR CR1)+ 
9679 100674 012721 000024 MOV @20.,CR1)+ sLENGTH OF MESSAGE BUFFER 
9680 100700 005021 CLR CR1)« 
9681 100702 012711 000000 MOV @0,(R1) sSELECT ORIVE ZERO 
9662 100706 012702 000030 MOV #24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
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9683 


100712 
100720 


101016 


012762 
42 


012737 
004737 
012700 
004737 
012737 
005037 


177777 075502 64%: MOV 0177777, T36BFRCR2) ;ALL ONES TO MESSAGE BUFFER 
TsT -(R2) ont LOCATION 
000000 60 ,R2 AT END OF LOOP YET 
BNE 64% iKEEP GOING UNTIL DONE 
RTS PC s;RETURN 
T36RT2: 
SAVREG sSAVE THE REGISTERS 
075570 MOV @T36PK2,R1 sSTART OF THE PACKET 
100006 MOV #100006, (R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
075610 MOV @T36BF2,(R1)>+ ATA 
CLR CR1i)« sEXTENDED ADDRESS 
000006 og! Fe; eneee sSIZE OF DATA BLOCK IN BYTES 
+ 
075610 MOV @T366F2,R1 sPOINT TO DATA SEL AREA 
CLR CR1)-+ 
CLR CR1) 
RTS PC ;RETURN 
T36RTS: 
SAVREG sSAVE REGISTERS 
075600 MOV @T36PK3,R1 sSET UP POINTER ADDRESS 
CLR CR1)+ sCOMMAND SPAC 
CLR CR1)+ sADDRESS OF DATA BLOCK 
CLR C(R1)> sEXTENDED ADDRESS 
CLR CR1) ;SIZE OF DATA TRANSFER BLOCK 
RTS PC sRETURN 
ENDTST 
L10070: 
TRAP 
.SBTTL TEST 9: FUNCTION TIMING 
3¢ 
3 
sTHIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
sRECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. Borne LOW 
:AND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THA 
:SPACE RECORDS COMMAND WITH A RECORD COUN) UF 80 OR MORE, "AND A 
;SKIP TAPE MARKS COMMAND WITH A COUNT OF 2 OF MORE, OPERATE THE 
sTAPE IN HIGH-SPE! THIS TEST CAN ONL UN 
sREAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 
sTIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF 
s;DIFFERENT TEST RECORD LENGTHS. 
3 
3 
t- 
BGNTST v 
006354 002172 MOV @EPRT1, pares sPRIMARY ERROR MESSAGE 
017354 JSR PC ,.KT sTURN KT OFF 
105243 MOV eTsts7ID, RO sASCII MESSAGE TO IDENTIFY TEST 
016570 JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 
S 002210 MOV #5 ,LOOPCNT sPERFORM S ITERATIONS 
102306 CLR T37CNT ;CLEAR TAPE RECORD COUNTER 


3¢ 


; 
sTEST 9, SUBTEST 1 
: 
; 


SEQ 0214 


CsETST 
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| SEQ 0215 
TEST 9: FUNCTION TIMING 
9741 HY | 
9742 Hy | 
9743 8° 
9744 
9745 101054 T37LOOP: 
9746 101054 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
101054 T9.1: 
101054 104402 TRAP Cs6Sus8 
9747 101056 005037 002216 CLR INTRECV s INTERRUPT INDICATOR 
9748 101062 005037 102306 CLR T37CNT sTIMER FOR WRITE DATA SPACING 
9749 101066 005037 102310 CLR T37CNU sTIMER FOR WRITE DATA RETRY SPACING 
9750 101072 004737 105264 JSR PC, T37REST 3SET COMMAND PACKET 
9751 101076 004737 105356 JSR PC, T37RT2] :SET UP OTHER COMMAND PACKET 
9752 101102 004737 105420 JSR PC,T37RT3 3SET UP OTHER COMMAND PACKET 
9753 101106 012737 176750 102312 MOV 065000. »T37DLY sSET UP DELAY COUNTER 
9754 101114 004737 016054 108: JSR PC, SOFINIT 300 INITIALIZE ON CONTROLLER 
9755 101120 103426 BcSs 20$ ;6R IF INIT WAS OK 
9756 101122 DELAY 250 sDELAY ABOUT .25 SEC 
101122 Ci12727 000250 MOV @250.(PC)+ 
101126 000000 - WORD 
101130 013727 002116 MOV LSOLY,CPC)« 
101134 000000 - WORD 
11 005367 177772 DEC -6(PC) 
101142 001375 BNE -* 
101144 005367 177756 DEC -22(PC) 
101150 001367 BNE .--20 
9757 101152 005337 102312 DEC T370LY sBUMP COUNTER 
9758 101156 001356 BNE 10$ ;B8R, IF COUNTER NOT DONE 
9759 101160 005237 002214 INC FATFLG sERROR COUNT 
9763 101164 010001 MOV RO,R1 ; CONTENTS OF TSSR REGISTER 
9764 101166 ERROF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
104455 TRAP CsERDOF 
101170 001605 - WORD 901 
101172 003646 - WORD SFIERR 
101174 012114 «WORD SFIMSG 
dn 101176 013737 002174 102160 20%: MOV UNITN, T370SW ;SET UP UNIT NUMBER 
9767 101204 012704 102140 MOV @T37PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
9768 101210 004737 010742 JSR PC ,.WRTICHR i ISSUE WRITE CHARACTERISTICS 
9769 101214 103407 bcs 23% ;68R, IF COMMAND ISSUED OK 
9770 101216 005237 002214 INC FATFLG sERR 
9774 101222 010001 MOV RO,R1 3s SAVE CONT ENTS OF TSSR 
9775 101224 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC > 
101224 104456 CSERHRD 
101226 001606 THORD 902 
101230 005052 . WORD WRTMSG 
101232 012114 WORD SFIMSG 
9776 101234 23%: CKLOOP sLOOP IF SELECTED 
101234 104406 TRAP CsCLPi 
9777 101236 004737 011074 JSR PC,REWIND sCALL TAPE REWIND COMMAND 
9778 101242 103411 BCS $ 36R, NO PROBLEM 4 
9779 101244 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS f 
9780 101250 010004 MOV RO,R4 sGET PACKET ADDRESS é 


9781 101252 005237 002214 INC FATFLG sERROR COUNT 
9785 voreer ERRHRD ERRNO, TS7RWN,PKTSSR sREWIND NOT ACCEPTED 
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103465 
012126 


011074 
000002 
002214 


70$%: 


130%: 


INC 
ERRHRD 


T37BFR+6,R1 

R1,R2 

seins. R2 
R2 


FATFLG 
ERRNO, T37B0T , EXPREC 


#100 

Pace: 10 
#140005, T37PK3 
6137 eT S7PKS Ra ® 
Ra. Ra, Tab0CRS) 
TSSR(RS).R1 
@SSR,.R2 


70% 
FATFLG 
ERRNO, T37WOC ,PKTSSR 


R3 

65% 

PC ,REWIND 
130% 
TSSRCRS),R1 
RO,R4 


FATFLG 
ERRNO, T37RWN,PKTSSR 


T37BFRe6,R1 
R1.R 
Hy pe fs »R2 


FATFLG 
ERRNO, T37B0T ,EXPREC 


- WORD 
. WORD 
TRAP 


LOOP IF SELECTED 
;PICK UP xSTO 
SET UP EXPECTED 
}SET BOT BIT IN EXPECTED 
{DOES EXP = REC'D 
i8R, IF EQUAL COK) 
ERROR COUNT 
STAPE NOT AT BOT AFTER REWIND 


- WORD 
- WORD 

WORD 
sLOOP IF SELECTED 


RAP 
sNUMBER OF RECORDS TO BE WRITTEN 
BUFFER ADDRESS 

OMMAND 


iSTARTING WRITE 

sWRITE DATA,ACK,.CVC=1 C 

sSET UP R4 WITH PACKET ADORE 
sSET UP RECORD SIZE IN PACKET 


s ISSUE COMMAND 
sWAIT FOR SSR TO SET 


sERROR COUNT 
sTSSR INCORRECT AFTER as Fae 


. WORD 
sLOOP IF SELECTED 


TRAP 
sDEC RECORD COUNTER 
s8R, IF MORE RECORDS TO WRITE 
sCALL Mig | REWIND COMMAND 


BR F NO PROBLEM 
GET TSsR CONTENTS 
GET PACKET ADDRESS 


sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP 
- WORD 
- WORD 
- WORD 
sLOOP IF SELECTED 
TRAP 


sPICK UP _XSTO 

sSET UP_EXPECTED 

iSET BOT IT IN EXPECTED 
sDOES EXP = REC'D 

;BR, IF —.. (OK) 


OR COUNT 
,TAPE NOT AT BOT AFTER REWIND 


SEQ 0216 


T37RWUN 
PKTSSR 


CsCLP1 


CSERHRO 


904 
T3780T 
EXPREC 


CsCLP1 


CSERHROD 
S 


90 
T37WOC 
PKTSSR 


CsCLP1i 


CSERHRD 
906 


T37RWN 
PKTSSR 


CsCLP1 
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TEST 9: FUNCTION TIMING 
101500 


011074 


000002 
101646 005237 002214 


101714 


140%: 


1608: 


170%: 


@TS7PKS .R4 


Hh ph ta 
FATFLG 
ERRNO, T37SCF ,PKTSSR 


PC ,REWIND 

170% 

RO,R4 

TSSRCRS),R1 

FATFL 

ERRNO, T37RWN,PKTSSR 


T37BFR+6,R1 

R1,R2 

#BIT1.R2 

R1,R2 

175% 

FATFLG 

ERRNO, T37B0T , EXPREC 


sLOOP IF SELECTED 
sSET UP PACKET 


SEQ 0217 


CSERHRO 


907 
T37B0T 
EXPREC 


CsCLP1 


ADORESS 
SET UP RECORDS TO SPACE OVER 
FORWARD COMMAND 


TACK ie Corman 


S 
{BUMP T IMER 
sDELAY ABOUT 100US 


sGET TSSR 

sCHECK FOR TSSR‘S SSR SET 
;KEEP COUNTING UNTIL SET 
sSET UP EXPECTED 

;WAS EVERYTHING OK 

sBR, IF ALL IS WELL 


sERROR COUNT 
sSPACE FORWARD DION‘ T — 


. WORD 
-WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 
sCALL_TAPE REWIND COMMAND 
IF NO PROBLEM 


:6R, 
iGET PACKET ADORESS 
sGET STATUS FROM a 


sERROR C 
sREWIND NOT ACCEPTED 


TRAP 
- WORD 
. WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 
sPICK UP XSTO 
sSET UP_EXPECTED 
sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 


:BR, IF 7. COK) 
= OR COUNT 
3; TAPE NO AT BOT AFTER REWIND 
TRAP 


@1,(0PC)> 
LSOLY,CPC)+ 
rm ‘ee 
-22(PC) 

20 


CSERHRD 
908 


T37SCF 
PKTSSR 


CsCLP1 


CSERHRD 
909 
T37RWN 
PKTSSR 


CSCLP1 
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9876 101716 

102260 
000121 
140010 
000000 
102310 
000001 
002116 
367 177772 


177756 


104406 

013701 102306 
102310 
000077 


000077 


002214 


0u2214 
017262 


016536 


9917 102126 101054 


000017 


175%: 


2608: 


3008: 


JSR 
BCC 
JMP 


@T37PK3,R4 
061. ,T37RB 
€140010, T37PK3 


R4, TSOBCRS) 
TS7CNU 


TSSRCRS),.R1 
@SSR,R1 


@SSR ,R2 
R 


FATFLG 
ERRNO, T37SCF -KTSSR 


T37CNT,R1 
T37CNU, 
#000077 ,R1 
#000077 ,R2 
R1,R2 

300% 


FATFLG 
ERRNO, T37TIM, EXPREC 


FATFLG,@15. 
999% 
PC ..CKDROP 


PC, TSTLOOP 
163% 
T37L00P 


SEQ 0218 
3;LOOP IF SELECTED 
TRAP CSCLPi 
sSET UP PACKET ADDRESS 
3SET UP RECORDS TO SPACE OVER 
TACK, CvC=1,SPACE FORWARD C 
sISSUE COMMAND 
+ BUMP TIMER 
sDELAY ABOUT 100US 
MOV #1,(PC)> 
-WORD O 
MOV LSOLY.CPC)+ 
-WORD O 
DEC “gre? 
BNE 
DEC *30¢PC) 
BNE --20 
3GET TS 
;CHECK FOR TSSR‘S SSR SET 
sKEEP COUNTING UNTIL SET 
;SET UP EXPECTE 
3WAS EVERYTHING OK 
36R, IF ALL IS WELL 
sERROR COUNT 
;SPACE FORWARD OION'T WORK OUT 
TRAP CSERHRD 
. WORD 11 
«WORD 1T37SCF 
WORD PKTSSR 
;LOCP IF SELECTED 
TRAP CSCLPi1 
;TIME FOR WRITE SPACT 
sTIME FOR WRITE RETRY SPACING 
sSETTING UP CONSTANT 
sSETTING UP CONSTANTS 
sCHECK FOR DIFFERENCE 
3:6R, CK 8888 
3E COUNT 
sTIME WAS NOT DIFFERENT ENOUGH 
TRAP CSERHRD 
7 912 
-WORD T37TIM 
-WORD EXPREC 
;LOOP IF SELECTED 
CsCLPi 


3<<eeeeeeccece END SUBTEST >>>>>>>>>>>> 
100 


CsESUB 


sTRY TO OROP THE UNIT 


s00 WE NEED TO ITERATE TEST 
3BR, NO LOOP REQUIRED 
sEXECUTE AGAI 





-_——- = -— 


102132 104432 
102134 003306 


102140 


100004 
102142 102150 
000000 
102146 000012 


9931 102150 
9932 102152 102162 
99335 102152 000000 


9934 102154 000024 
9935 102156 000000 
36 102160 CO00000 


9964 102270 010 
200 


2 
9973 102276 100205 
pad 102300 100605 


102205 
9976 1023504 177777 


9979 102306 000000 





163%: 
EXIT TST 


3¢ 
ILOCAL STORAGE FOR THIS TEST 
, .@<, 6106177770 


TS7PACKET: 
-WORD 100004 
-WORD TS7DATA 
-WORD 0 
-WORD 10. 
TS7DATA: 
-WORD TS7BFR 
-WORD 0 
-WORD 20. 
-WORD 0 
T370SW: .WORD 0 
T37BFR: .BLKW 25. 


WRITE SUBSYSTEM MEMORY COMMAND PACKET 
: =<, 61026177770 


T37PKe: 
WORD 100006 
“WORD T37BF2 
"WORD O 
“WORD 6. 
T37PK3: 
WORD 100005 
T37RB: 
1378: .WORD FREE 
"WORD O 
T37SZ: ‘WORD 0 
* EVEN 
3 
] 
1378F2: 
T378S0: .BYTE 10 
137851: {BYTE 200 
T37S2:| |WORD 0 
13783; [WORD 0 


. EVEN 
sTAPE MOTION PACKET COMMAND VALUES 
-WORD 100205 
. 100605 
TS7CON: .WORD 102205 
-WORD = 177777 
WORD 


T37CNT: . 0 
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SEQ 0219 


sALL DONE THIS TEST 
TRAP CsExIT 
-WORD  110073-. 


sCOMMAND PACKET FOR TEST 

;WRITE CHARACTERISTICS COMMAND. » ACK 
sADORESS OF CHARACTERISTICS Block 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA ao 

sADORESS OF MESSAGE BUFFER 

sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 0 
sMESSAGE BUFFER 


;WRITE SUB SYS MEM COMMAND, AND ACK 
;ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


AREA 
sDATA AREA 


sREREAD DATA coexT 
sREREAD DATA RETR 
sWRITE CONTINOUS 
sEND OF 


sTAPE TIMER COUNTER STORAGE AREA 


VJ 


epee eee ee 
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102310 000000 T37CNU: .WORD 0 ply! TIMER COUNTER STORAGE AREA 


} 
| 
9980 j 
9981 102312 000000 _—— -WORD O 4%. sCELAY COUNTER 
998 }LOCAL TEXT MESSAGES FOR TEST, 
Sees $° 
ga8 ' 
9986 102314 124 141 169 TS7WNG: .ASCIZ ‘T Position ae After REREAD Previous (0PP=1)' 
9967 1 124 123 TS7ROF: .ASCIZ ‘TSSR Incorrect. After READ DATA Commend’ 
9966 102451 122 TS7RRF: .ASCIZ ‘REREAD Previ (Spece Reverse, Meee oe ey Command Feiled’ 
9969 1 120 117 123. T37SC: .ASCIZ ‘POSITION (Sp Command) Feiled Not Correct’ 
9990 102630 122 111 102 TS7LOR: .ASCIZ ‘RIB NOT SET AFTER A... REVERSE 2° ste 60 iT? 
9991 102700 124 123 i123 13 : .ASCIZ ‘TSSR Not Correct After Illegal Mode He te Set’ 
s0e733 111 154 154 TS37LO0Q@: .ASCIZ ‘Illegel Mode Site. Frise To Set ILC Bit In XSTO’ 
10 122 105 122 TS7SSR: .ASCIZ ‘REREAD COMMAND 
9994 103072 124 123 123 _T3 : .ASCIZ ‘T Te DATA RETRY Commend,.At BOT’ 
Sore fouseh 12 EHD TMT! ASHES SUstte'Bhratadh Stecteu tomcrner tae Eameegee™ STO” : 
— ° . rese é 
103331 122 105 T37E0T: ; A 1 GAVE NOT TAPE STATS ACERT: 
9996 103410 124 123 T37TM: . ° ter COMMAND . 
9999 103465 122 145 167 TS37RWN: .ASCIZ ‘Rewind. postion) Not ~w~ % 
10000 103534 i122 101 115 TS37RNC: .ASCIZ Error, Correct Dete Pettern Not In Ran‘ 
10001 103607 124 123 123 T37AM3: .ASCIZ ‘ISSR Init. Feiled *?ier REREAD COMMAND’ 
s0088 103656 104 162 151 TS7OFL: . ‘Drive 7 Select Feiled To Set “OFL* In TSSR‘ 
1 103731 124 123 123 T37WO0: . Z ‘TSSR Net Correct After REREAD DATA Command, SWB Bit Set’ 
10004 104021 124 123 123 T37WOC: . ° Not rect After REREAD DATA Coamend 
10005 10407 103 103 TS7VCK: .ASCIZ ‘CVC Set. Didn'‘'t Reset VCK In Buffer’ 
10006 104147 Lea 123 1 TS7BA: .ASCIZ ' Not Correct After REREAD DATA . 
10007 1 127 122 111 T37WSS: .ASCIZ ‘WRITE SUBSYSTEM Not Accept )' 
10006 10431 122 145 141 TS7LON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In XSTO' 
i 10437 122 145 141 TS37LOP: . ‘Reading L Record Failed To Set RLS Bit In XSTO’ 
10010 S 122 145 163 T37P6P: .ASCIZ R wots penal By sume Incorrect After Short Record 
10011 104543 i2 145 141 TS7TRL: .ASCIZ ‘Reed eding ong Record celled To Give v9 Stetus Alert 
100 | 127 122 111 TS7NEF: .ASCIZ ‘WRITE DATA RETRY, At Firet Record, Fe To Set RIB. Bit xST3° 
10013 10472 124 123 123 TS7SCF: .ASCIZ ‘TSSR Not Correct After SPACE RE 
10014 124 123 123 TS7TSA: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY, tnto BOT’ 
beets Hoaees HSE HEE: Teton: “ASEEE ‘aeee Cot Cec'ertat ecuthlesPersa"Glne SSt"Pctas To uitten 
“a ‘ Set a rror, roa ° Wri , 
10017 3 106 165 156 TSTS7IO: tien Timing’ —- 
s0088 3° 
3 
10021 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
10088 iWRITE SUBSYSTEM MEMORY COMMAND 
1002 i 
10024 s- 
10025 
10026 105264 T37REST: 
10027 105264 SAVREG sSAVE THE REGISTERS 
1 105270 012701 102140 MOV @TS7PACKET Ri isT ART OF THE PACKET 
10029 105274 012721 MOV #100004 ,(R1)-« sWRITE SUBSYSTEM MEM. WITH ACK, 
ree rg reseed 012721 102150 ~~ meta , OF CHARATSTICS. DATA BLOCK 
10088 105306 012721 MOV CR1)+ iSIZE OF DATA BLOCK IN BYTES 
s08s rested 012721 102162 oy! etsiérn, cha)» sADORESS OF MESSAGE BUFFER 
10035 rite 012721 000024 ~ #20, .(R1)« sLENGTH OF MESSAGE BUFFER 





= 
Ny 
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012711 


012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
c0S5011 
105416 000207 


012701 


000010 


0000 
105466 


| 

| 

| 
10046 105356 
10047 105362 
10048 105366 
10049 105372 
10050 105376 
105400 
160010 


000030 
177777 
000000 


102250 
100006 
102270 
000006 
102270 


102260 


102162 64%: 


TS7RT2: 


T37RT3: 


- SBTTL 


p+ cna} 

0177777, T37BFRCR2) 
-(R2) 

00 ,R2 


64% 
PC 


of aes § Ri 

#100006, (R1)+ 
@T37BF2,(R1)+ 
soe 

CR1)+ 

Criss 
oT378F2, Ri 
C(R1)+ 
(R1) 

PC 


@T37PK3,R1 
(R1)+ 
(R1)+ 


CR1)+ 
(R1) 
PC 


TSV6 - PARAMETER CODING 


TSV6 


sSELECT ORIVE ZERO 
sNUMBER OF LOCATIONS TO BE CLEARED 
FALL ONES TO MESSAGE BUFFER 
ext LOCATION 
AT END OF LOOP YET 
iKEEP GOING UNTIL DONE 
sRETURN 


sSAVE_ THE a 

sSTART OF THE PACKET 

sWRITE a a A MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


;RETURN 


sSAVE REGISTERS 

;SET UP POINTER ADDRESS 
sCOMMAND SPACE 

sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

;SIZE OF DATA TRANSFER BLOCK 
RETURN 


L10073: 
TRAP 


HARDWARE PARAMETER CODING SECTION 


"THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
BY THE SUPERVISOR TO BUILD P-TABLES. THE 


THAT ARE USED 


INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. 


° 
é 
; MA MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT a» 
3 
‘ 
; 


MACROS ALLOW a eee TO ESTABLISH COMMUNICATIONS 


WITH THE OPERAT 


BGNHRD 
-WORD L10075-L$HARD/2 


L$HARD: 


HPM1,0,0,160010,177776, YES 
Mh $CODE 


HPM1 
T$LOLIM 


SEQ 0221 


CSETST 


;GET TSBA/TSOB REGISTER ADDRESS. 
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SEQ 0222 
| HARDWARE PARAMETER CODING SECTION 
105454 177776 .WORD TSHILIM 
10100 305456 GPRMA HPM2,2,0,0,776, YES ;GET VECTOR ADDRESS. 
105456 001031 "WORD ©“ TSCODE 
105460 105522 “WORD HPM2 
105462 000000 ‘WORD TS$LOLIM 
105464 000776 ‘WORO TS$HILIM 
10101 GPRMD HPM3,4,0,340,0,7, YES GET INTERRUPT PRIORITY. 
10102 105466 ENDHRD 
~EVEN 
105466 L10075: 
10103 105466 104 105 126 HPMi:  .ASCIZ ‘DEVICE ADDRESS (TSBA/TSDB) ° 
10104 105522 111 116 134 HPM2: [ASCIZ ‘INTERRUPT VECTOR ' 
10105 105546 111 116 124 HPM3: © :ASCIZ "INTERRUPT PRIORITY 
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| SEQ 0223 
| SOFTWARE PARAMETER CODING SECTION 
s0n08 .SBTTL SOFTWARE PARAMETER CODING SECTION 
10110 see ! 
10111 : THE SOFTWARE PARAMETER con SECTION ys: MACROS 
10112 : THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE j 
10115 : MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
10114 3 INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
10115 : MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
10116 3; WITH THE OPERATOR. 
10117 s-- 
101186 105576 BGNSFT 
105576 000003 »-WORD L10076-L$SOFT/2 
105600 L$SOFT:: 
10119 3 GPRML SPM1,0,-1,YES ; GET TRANSPORT TEST FLAG. 
10120 105600 GPRML SPM4,2,-1,YES ; GET ITERATION CONTROL. 
105600 001130 -WORD TSCODE 
105602 105636 -WORD SPM4 
105604 177777 . WORD -1 
10121 3 GPRMD SPM6,4,0,7777,0,7777, YES 3; GET LOCAL ERROR LIMIT 
10122 : GPRMD SPM7,6,0,7777,0,7777,YES ; GET GLOBAL ERROR LIMIT 
10123 105606 ENDSFT 
EVEN 
agane 105606 L10076 
10125 105606 105 116 101 SPM1: -ASCIZ ‘ENABLE yc tH TESTS ' 
10126 105636 111 116 110 SPM4; -ASCIZ ‘INHIBIT ITERATIONS ‘ 
10127 105666 120 105 122 SPM6: -ASCIZ ‘PER TEST ERROR LIMIT ‘ 
10128 105716 120 105 122 SPM7: -ASCIZ ‘PER UNIT ERROR LIMIT ‘ 
10129 .SBTTL PATCH AREA 
10130 2 
10131 3 
10135 3; FINALLY A GENEROUS PATCH AREA. 
3 
10134 ; AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7” HACK 
10135 ; DESCRIBED IN “SUPPRG.MEM” CFOR REV C). 
10136 3 
10137 
10138 105746 PATCH: : 
10139 
10140 105746 -BLKW 32. 
10141 
10143 106400 -2.1377e1 


10145 106400 gil sSET LAST USED ADDRESS. 
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| Symbol teble 


ADDSSR 012206 G $AU_ = 900052 DEVORO 
ADR. # 000020 G CsAUTO= 1 DEVNRD 
AMBTSS 0067135 CS#BRK = 000022 DEVNXR 
ASSEMB= 10 C&8BSEG= 000004 DEVONL 
A1716 = 3 C#BSUB= 000002 DEVSUM 
AT 003150 G CSCEFG= 000045 OF PT6L 
BADSSR 015760 G $CLCK= 000062 0 ad 
BOVPCR= 177520 G CS&CLEA= 000012 DICED = 
SW 002222 G Cs8CLOS= 000035 OSBINT 
BIE = 040000 CsCLPis= 2 
BITO = 900001 G C&8CVEC= 000036 DOUFLG 
BITOO = 000001 G CSOCLN= 
BITO1 = 000002 G Cs#000U= 000051 EF .CON= 
ITO2 = 000004 G CsORPT= 000024 EF .NEW= 
BITOS = 000010 G Cs0uU__= 000053 EF .PWR= 
IT04 = G CsEDIT= 000003 EF .RES= 
BITOS = G CSEROF= 000055 EF .STA= 
ITO06 = 000100 G CSERHR= 0000 EMA 
BITO7 = 000. G CSERRO= ® 
BITOS = 000400 G CSERSF= 000054 ENAINT 
BITO9 = 001000 G CsERSO= 000057 
ITi_ = 000002 G C#ESCA= 000010 EPRTSW 
BIT10 = 002000 G CSESEG= 000005 EPRT1 
BIT11 = 004000 G C#ESUB= 000003 EPRT2 
BIT1i2 = 010000 G CSETST= 000001 ERCM 
BIT13 = 020000 G CsEXIT= 000032 ERRHI 
BIT14 = 040000 G CSGETB= 000026 RRK 
BIT1S = 100000 G C$GETW= 000027 ERRLO 
BIT2 = 000004 C C#GMAN= 000043 ERRNO = 
BITS = 000010 G CSGPHR= 000042 ERRVEC= 
BIT4 = 000020 G C#GPLO= 000030 ERTABE 
BITS = 000040 G C&GPRI= 000040 RTABL 
BIT6 = 000100 G CSINIT= 000011 ESUM 
BIT7 = 000200 G CsIN.P= 000020 EVL_ = 
BITS = 000400 G C$MANI= 000050 EXBCNT= 
BIT9 = 001000 G C$MEM = 000031 Ex 
BOE = 000400 G C$MSG = 000023 EXPD 
BRINIT 004453 CSOPEN= 000034 EXPGOT 
BSELO = 000000 CSPNTB= 000014 EXPGT2 
BSEL1 = 000001 CSPNTF= 000017 EXPMSG 
CHKAMB 016124 CSPNTS= 000016 EXPREC 
CHKMAN 020560 G CS$PNTX= 000015 EXTA 
CHKTSS 016416 CsQIO = 000377 EXTEND 
CK' 017262 C#ROBU= 000007 EXTFEA 
CKEMAX 017162 CS$REFG= 000047 ESEND = 
011440 G CSRESE= 000033 E$LOAD= 
CKMSG2 011560 G C#REVI= 000003 FATERR= 
CKRAM 011174 G CsRFLA= 000021 FATFLG 
CKRAM2 0113504 G $ = 000025 FERCM 
CMOPKT 021244 G CSSEFG= 000046 FIFEXP 
CMPMEM 017740 C#SPRI= 000041 FIFiMS 
CONFIG 017330 C#SVEC= 000037 FIFOQMS 
COUNT 002302 G CsTPRI= 000013 FILLME 
CSRADD 002200 G DATA 002304 G FNOINT 
CTAB 003156 G DATASC 020312 FORCER 
CTABE 003170 G DEBUGM 011712 FREE 
CTABM 003156 G DEVCNT 002212 G FREEHI 


11:22 Page 77-1 
23 FRESIZ 
023301 FUSI 
023217 FSAU = 
023147 F $AUTO= 
023112 BGN = 
002150 FSCLEA= 
000000 FSOU = 
000001 FSEND = 
016264 F $HARD= 
004637 FsHW = 
003104 G FSINIT= 
003054 FSJMP = 
000036 G FSMOD = 
000035 G FSMSG = 
000034 G FSPROT= 
000037 G $PWR = 
000040 G FSRPT = 
017057 FSSEG = 
F$SOFT= 
016232 FSSRV = 
020710 F$SUB = 
002172 G FSSW = 
0063 FSTEST= 
006413 AT 
012013 R 
002230 G GETPAT 
017036 TSEL 
002232 G GSCNTO= 
001620 G$DELM= 
G GSDISP= 
003370 GSEXCP= 
003170 GSHILI= 
017040 G$LOLI= 
G$NO = 
10 GSOFFS= 
015562 G GsOFSI= 
002224 G G$PRMA= 
004527 G$PRMD= 
004563 $PRML= 
002314 G G$RADA= 
015554 G $RADB= 
S7 G$RADD= 
005764 G$RADL= 
002220 G G$RADO= 
002100 GSXxFER= 
35 GSYES = 
0 HIADOR= 
002214 G HOE = 
012002 HPM1 
012250 G 
012322 HPM3 
012371 IGE = 
017502 Ibu = 
211 IER = 
002170 G IFAULT 
003116 G INCERK 
003122 INTCPC 


003120 
004113 


016230 


G INTFLA 


AAA 


$TST 


Aon 
err 
m 
5 


an 


_ Oo 


SEQ 0224 
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SEQ 0225 
| Symbol teble 
| LOOPFL 003154 G 110002 0605762 L10074 102102 OSGNSW= 000001 PUNIT 022270 
| LOT * 000010 G L10003 012124 L10075 105466 O$POIN= 000001 PW.011= 000021 
Lsace 002110 G L1 012142 L10076 0 OsSSETU= PwW.013= 000022 
| LSAPT 0020 G L10005 012160 014034 PASRPT 022040 PW.022= 
LSAU 022336 G Li 012166 021262 G 105746 G PW.NOP= j 
LAUT 002070 G t] MENASC 020527 PATDAT 020 PW.NO1= 000023 
LSAUTO 022542 G L10010 012222 MENERR 0204 C.ERA= 24 PW.RDE= 000024 
Lscce 002106 G 110011 012246 MENRES 020556 PC .IER= PW.RDR= 000001 
LS8CLEA 022622 G 110012 012320 MMVEC = 000250 P = 001000 PW.RDS= 000005 
Lsco 0020 G 110013 012470 MSA.FR= PC.REL®= PW.RFI= 000003 
LSDEPO 002011 G 10014 13204 MSA.NO= PC.REW= 000400 PW.WCT= 000006 
LSDESC 003402 G L10015 014032 MSA.NR= PKBCNT= PW.WFI= 000004 
LSDESP 002076 G L10016 014054 MSA.VO= PKHI = PW.WFM= 000007 
LSDEVP 002060 G L10017 015560 MSGEXP 012224 G PKLOW = PW.WMI= 000010 
LSOISP 002124 G L10020 5566 MSGL 013144 G PKTADD 007632 PW.WNP= 000011 
LSOLy 002116 G 015574 MSGSTA 012430 G PKTFRM 007574 PW.WTR= 000002 
LsOTP 002040 G 10022 MSGS 014022 G PKTGET 012144 G P.ACK = 100000 
LSOTYP 002034 G L10023 015630 MS.ATT= PKTMES 012170 G P.CMO = 000037 
Lso0u 022434 G 10024 56 MS.EXT= 000200 PKTRAM 004741 G P.CONT= 000012 
LSOUT 002072 G L10025 016016 MS.RSD= 000001 PKTSSR 012126 G P.CVC = 
LSOVTY 003374 G L10026 016326 MS.RSF= 000020 a 1 G P.FMT = 000140 
ser 00 G L10030 022266 MS.RST= 000010 PRAMPK 014056 P.FORM= 000011 
LSENVI G L10031 022432 1 005550 PRASC P.GETS= 000017 
seTP 002102 G Ll 022540 M8189 005641 PRBEXP 015550 P.IE = 000 
LSExPi G 110033 = 2000 PRBM P.INIT= 000013 
SEXP4 002064 G 02. NEWPAS 021774 PRBREC 015552 Pp. = 007400 
LSEXPS 002066 G L10035 023110 003106 G PRBTOT 015503 Pp. 6 
LSHARD 105446 G 232 NOINIT 004331 PRBYTE 015202 G P.POSI= 000010 
LSHIME 002120 G L10037 024074 NOINTR 00421 PRI oa G P.READ= OOO00C1 
LSHPCP 002016 G L10040 024616 NOITS 002162 G PRIADD 010236 P.SWB = 010000 
LSHPTP 002022 G L10041 25342 020614 PRIAO 010306 P.WRIT= 000005 
LSHw 002150 G L10042 005454 PRIBXO 007670 G P.WRTC= 000004 
LsIcPe 002104 G L10043 041330 NP.IR = 000200 PRIEQU 010136 P.WRTS= 
LSINIT 021542 G Li 033634 NP .LOO= PRIPKT G QvP 002176 G 
SLADP 002026 G L10045 035260 NP .OUT= 000100 PRI 010144 RAMASC 014236 
LSLAST 106404 G Li 035654 NP .WRP= 000020 PRITAD 010352 RAMDAT 002234 G 
LS8LOAD 002100 G L10047 036340 004146 PRITSS 20 RAMERR 015570 G 
LSLUN 002074 G L10050 NSINIT 03 PRITO 010434 RAMEXP 015610 G 
LSMREV 6 L10051 042222 004523 PRIT1 010477 RAMFOR 010174 
LSNAME G 0430 NULCR 004524 PRIXOR 010020 G RAMSIZ 002274 G 
LSPRIO 002042 G L10053 052744 NXM = PRI = 000000 G R AD 015576 G 
$PROT 021532 G L10054 047542 NXMFLG 003130 G PRIO1 = 000040 G RCVHIA 002276 G 
LSPRT 002112 G L10055 050352 NXMHI 003134 G PRIO2 = 000100 G RCVLOA 0023 G 
LSREPP 00 G 166 NXMLO 003132 G PRIO3 = 000140 G RDERR 
LSREV 002010 G L10057 055740 NXMTST 021436 PRIO4 = 000200 G RECMSG 002460 G 
LSRPT 0226 G Li 054406 NXR PRIOS = 000240 G RECV 002226 G 
LSSOFT 105600 G L10061 063312 NXRERR 005732 G I = 000 G REGSAV 020220 
LssPc 002056 G 10062 376 NXRX 003773 PRIO7 = 000340 G ET 005 
LSSPCP 002020 G L10063 073242 NXTU 022006 S$ 014322 REWIND 011074 G 
LSSPTP 002024 G L10064 L = 900100 PRMNO 002312 G RMCHBE = 16 
LSSTA 0020 G L10065 ONEFIL= PRMSGE 014632 G RMCHEN= 
L$Sw 002160 G Li 3 OSAPTS= PRMSGO 015012 RMMSGB= 000215 
LSTEST 002114 G L10067 7230 OsSAU = 000001 PRMSG1 015057 RMMSGE= 000234 
L¢TIML 002014 G L10070 101016 O$BGNR= 1 PRMSG2 015115 RMPKTB= 000201 
LSUNIT 002012 G L10071 074336 OSBGNS= 000001 PROASC 014500 RMPKTE= 000210 
L10000 002156 L10072 075420 OsDU = 000001 PRIASC 014545 = 010000 
L10001 002170 L10073 105442 OSERRT= 000000 . PST32W 003144 G RWPACK 011170 
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SEQ 0226 
_ Symbol teble 
sc * 100900 $2.0UT= 000040 TSFLAG= 000040 T290AT 026230 T 036530 
SCE___= 020000 S2.UND= 000003 T$ . T290LY 026400 T308S1 036531 
SCHERR 005274 TBLEND= 003054 G TSHILI= 000776 T290SW 240 T T 0365 
7 TCOASC 006554 TSLAST= 1 T290TA 027743 036552 
SOELAY 010740 TCOCOD 0067 TéLOLI= T29EOT 030031 T3ODAT 036410 
| SELASC 020522 TEMP1 003110 G TSLSYM= 010000 T29L0N 031125 T3SOOLY 036556 
SELDAT= T 003112 G TéLTNO= T2900 023462 T300: 036420 
SEL2 = TERCLS= 1 TSNEST®= 177777 T29L0P 031207 T3ODTA 041034 
017376 TESTNO= il TSNSO = T29L0Q@ 027326 T300TR 040770 
SETU TEXASC 006515 T$NS1 = 000005 T29LOR 027201 T3OETM 036416 
012162 G TFCASC 15 T#NS2 = 000002 T29NEF 026530 30F 036554 
TIMEXP 015632 G TSPTNU= T29NEQ 031445 T3OIBT 036731 
SFIERR TIMSGO 01 TS$SAVL= 177777 T290FL 026402 30IBU 036 
IMSG 012114 G TINERR 012101 TS¢SEGL= 177777 T290F7 030415 T 036536 
TeL 160 002 G T$SUBN2 1 T29PAC 026220 T30LO00 032 
SIFLAG 003146 G NAM 016764 TSTAGL® 177777 T29PBP 031271 T3O0L0Q 037530 
TRANST 002160 G TSTAGN= 010077 T29PK2 026330 040476 
SKIPT 003372 SBA G TSTEMP= T29PK3 026340 T3O0FL 040207 
01 TSBAH = 000001 G TSTEST= T2 026342 SOPAC 036400 
SPACE 010544 G TSOB = G TSTSTM= 177777 T29ROF 026620 036510 
SPM1 10 TSOBH = G TSTSTS= T29ROG 031543 T3OPK3 0365, 
105636 TSFCOD 007314 T$$AU_= 010031 T29RES 032046 T30PTB 037142 
1 TSREJ = TS$AUT= 010033 T29RIB 031624 T3OR6_ 036522 
SPM7 105716 TS TS$CLE= 0 T29RN 026356 T3ORDF 037313 
SRO * 177572 TSSR_ = G T$#0U = 010032 T29RNC 030254 T3OROG 037371 
SRL = 177574 TSSRBI 003476 G TS$HAR= 010075 T29RRF 026667 T3ORES 041152 
SR2 © 177576 TSSRFO 006473 T¢$HW = O1 T29RRG 027003 T3ORIB 036645 
SRS = 172516 TSSRH = G TS$INI= 0 T29RRN 031724 036536 
SSR__ 00 TSSX 004014 TS$MSG= 010025 T29RSZ 026376 T3SORRM 040555 
STATCO 012472 TSTBLK 002744 G T#$PRO= 010027 T29RT2 032140 T3ORRN 040633 
VCGBL= 000000 TSTCNT 002206 G T$$RPT= 010035 T29RTS 032202 T3ORRP 040712 
SVCINS= 000000 ST 017000 T$$SOF= 010076 T29RWN 030205 041244 
VCSUB= 000001 TSTFLA 2 G TS#SRV= 010026 T29sC_ 027117 T3ORTS 041306 
SVCTAG= 000000 TSTLOO 016536 C T$$SUB= 010074 T29SSR 027407 T3ORWN 040140 
SVCTST= 000001 TSTPTR 002310 G T$$SW = 010001 T29SZ 026346 T3OSKM 037014 
S$LSYM= 010000 TSTSET 016570 G T$$TES* 010073 T29S2 026352 T30SSR 037611 
-IDB= 000010 TST29I 032017 T1 023432 G T2983 0263 T30SZ 036526 
so. = 000002 ST 041131 T1.1 023462 T29TM 030127 T 036532 
SO.IFP= 000001 TST3iI T1.2 024112 T29TRL 031355 T30S3 036534 
$O.ILD= 000020 TST32I 052 T1.3 024634 T29VCK 030671 T3OTM 040006 
SO.ION* 000040 TST33I 055545 T1.4 T29WB 026342 TSOTMK 040414 
SO.IRD= 000100 TST34I 063107 T2 032234 G T29WOC 030577 T3OTM2 040063 
SO.IRW= TST3SI 073033 T2.1 032260 T29WOD 030470 037233 
SO.ISP= 000200 TST36I 100617 T2.2 03 T29WDE 027462 T3OVCK 040341 
i . TST37I 105243 T2.3 035276 T29WOF 027251 T 036522 
$1.IEO= 010000 TSsv2 002 G T2.4 T2 026 T 040262 
1.IFM= 001000 TSv3 002170 G T23A G T29WLK 027544 T30WDD 037070 
1. IHE= Tsv4 021532 G T238 003140 G T29WNG 0264 T3OWDE 037662 
$1.IID= 004000 TSV6 1 G T29AM3' 030327 T29WRT 027631 T 037453 
$1.I1R= 020000 TSV7B_ 023432 G T29B8A_ 0307 T29WSS 031036 31 044716 
1.I2R= 040000 TTIBFR= 177562 G T29BFR 026242 041332 G T31BA 045256 
S1.PAR= 1 TTICSR= 177560 G T298F2 026350 T3BFLG 003142 G T31BFR 043112 
S2.ATI= 000010 TTIVEC= G T2980T 027676 13.1 041362 T31BF2 043220 
S2.6TI« $ . T298S0 SO T3.2 042240 T31B0T 044245 . 
S2.0IM= 000200 TSCODE= 001130 T298S1 026351 TSOBFR 036422 T318SO0 043220 
S2.ILW= 000100 TSERRN= 001620 T29CNT 026374 T3O0BF2 036530 T318S1 043221 
S2.INR= 000020 TSEXCP= 000000 T29CON 026362 T3OB0T 037741 T31CNT 043236 





! 
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teble 


os 
051410 
051412 


T3SDAT 


T37CNT 


SEQ 0227 





! 
| 
; 
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SEQ 0226 

Symbol teble 
TS7CNU 102310 T37SZ 102266 T8 073244 G WSMBK 21254 G XSOFFS= 000400 
T37CON 102302 T37S2 102272 T8.1 073300 XFERAS 016020 X$TRUE= 000020 
T37DAT 50 T3783 102274 T8.2 074354 XNXM 016456 X1.COR= 
T370LY 102312 T37TIM 3254 T9 101020 G XORBFO 007752 1.0LT= 
T370SW 102160 37 103410 T9.1 0 XORF 010070 X%1.MBZ= 017375 
TS7DTA 105146 7 UAM = 2 xSTO 000006 

UNITN 
37LON 11 
T37L00 101054 102262 usI xST3 000014 # 000100 
TS7LOP 1043735 T37WOC 21 WAITF 016330 G XST4 = 000016 X2.EXT= 000200 
TS7L0Q@ 102755 T37WOD 103731 WC.IFA= XSOBOT= 000002 X2. = 100000 
T37LOR 102630 T37WDE 72 WC .IFE= XSOEOT= 000001 x2 = 040000 
T3 104631 T37WOF 102700 WC.IGO= 000001 XSOIE = X2.REV= 000077 
T370FL 103656 T37WOR WC.IRE= 000010 XSOILA= 00 -SPA= 035400 
T37PAC 102140 T37WNG 102314 WC. IRW= XSOILC= 001000 X2.UNI= 00000 
T3 104455 T37WRF WC.IO0T= 000100 XSOLET= X2.WCFe 
T37PK2 102250 T37WSS 104222 we. Iit= XSOMOT= X3.0CK= 000010 
T37PKS 102260 4 046670 G WC. ISR= XSONEF = X3.MBZ= 
T37RB 102262 T4.1 720 WF .IED= 000010 XSOONL= 000100 X3.MDE= 177400 
TS7ROF 102402 T4.2 7 WF .IER= XSOPED= 000010 X3.O0PI= 1 
TS7RES 1 4.3 050370 WF .IHI= 000200 XSORLL= 010000 X3.REV= 
T3 102276 TS 052746 G WF .IRE= XSORLS= 040000 3.RIB= 000001 
T3 103534 73.8 0s2 WF .IWF= 000020 XSOTMK= 100000 X3.SPA= 000200 
T37RRF S51 T6 055742 G WF .IWR= 000100 XSOVCK= 000020 X3.TRF= 000020 
T37RT2 105356 T6.1 055772 WF .I3R= 2 SOWLE= 004000 X4.HSP= 
T37RTS 105420 T7 063314 G WF .I4R= 1 XSOWLK= X4.MBZ= 017400 
T3 103465 T7.1 WRTCHR 010742 G XXCOMM 003114 G Xx4.RCE= 
T37SC T7.2 064422 WRTERR 005107 X$ALWA= x4. TSM= 


102546 . . 020000 
T37SCF 104727 T7.3 065502 WRTIMSG 005052 X$FALS= 000040 X4.WRC= 000377 
103036 066344 


- ABS. 106404 000)—s«CRW,I 
000000 001 CRW,I 
Errors detected: 0 


eee Assembler stetistics 


GBL,.ABS,OVR) 
LCL,REL,CON) 


Work file reads: 297 

Work file writes: 285 

Size of work file: sisee Words ( ¥ reece) 
Size of core pool: 19714 Words ( 7 Pegee? 
Operating poe RSX-1AM7PLUS tunder AX/VMS ) 


Elepsed time: 7:05.40 
CvTSOD,.CVTSOD, pa i CvTSOD 





